Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTR for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTR

fft = getFFTR(data(:))

pm_fftpack::getFFTR
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftpack.F90:1156

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTR

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CKS

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

33 adat = getFFTR(getFFTF(data)) / size(data)

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CKD

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

61 adat = getFFTR(getFFTF(data)) / size(data)

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CKH

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

89 adat = getFFTR(getFFTF(data)) / size(data)

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RKS

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

117 adat = getFFTR(getFFTF(data)) / size(data)

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RKD

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

145 adat = getFFTR(getFFTF(data)) / size(data)

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RKH

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTR(getFFTF(data)) / size(data)")

173 adat = getFFTR(getFFTF(data)) / size(data)

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:535

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:843

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:571

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:568

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+45

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.25216663, +0.850511730), (+1.58868980, +0.533298790), (+1.72285438, +0.902214468), (+1.07791567, +0.278338969), (+1.44714880, +0.692554891), (+1.33506107, +0.618796647), (+1.22366381, +0.701446414), (+1.62623119, +0.191033065), (+1.98526609, +0.428876877E-1), (+1.93761039, +0.261349916), (+1.70146418, +0.960153043), (+1.53440726, +0.688669384), (+1.91011906, +0.631958306), (+1.35292864, +0.583193421), (+1.33483398, +0.849082947), (+1.34714890, +0.642782748), (+1.85562980, +0.296715617), (+1.04775858, +0.593786240E-1), (+1.84948444, +0.779482126), (+1.77723646, +0.939701557), (+1.80775237, +0.883371592), (+1.50630498, +0.229697227E-1), (+1.91753078, +0.798215747), (+1.94382811, +0.524747431), (+1.97749782, +0.344054699), (+1.87756896, +0.488879681), (+1.08703387, +0.388299406), (+1.09431005, +0.878672481), (+1.32726133, +0.996298671), (+1.07705033, +0.942425609), (+1.27574301, +0.590626597), (+1.22441292, +0.919729471E-1), (+1.72665751, +0.317806244), (+1.66499686, +0.107602179), (+1.49451089, +0.572842121), (+1.27844620, +0.248290062), (+1.35671592, +0.134952188), (+1.56989980, +0.121030688), (+1.97652245, +0.633186698E-1), (+1.37467122, +0.667173505), (+1.75532794, +0.230328321), (+1.23998594, +0.644059718), (+1.90095448, +0.605947971), (+1.23564470, +0.978042424), (+1.17977488, +0.464676082)

7

8adat = getFFTR(getFFTF(data)) / size(data)

9adat

10(+1.25216663, +0.850511670), (+1.58868980, +0.533298850), (+1.72285450, +0.902214587), (+1.07791579, +0.278339028), (+1.44714868, +0.692555010), (+1.33506095, +0.618796527), (+1.22366381, +0.701446414), (+1.62623143, +0.191033170), (+1.98526633, +0.428878516E-1), (+1.93761051, +0.261349916), (+1.70146382, +0.960152864), (+1.53440702, +0.688669443), (+1.91011930, +0.631958365), (+1.35292876, +0.583193541), (+1.33483386, +0.849083006), (+1.34714890, +0.642782748), (+1.85563016, +0.296715587), (+1.04775858, +0.593787506E-1), (+1.84948444, +0.779482126), (+1.77723622, +0.939701617), (+1.80775213, +0.883371472), (+1.50630498, +0.229696911E-1), (+1.91753078, +0.798215747), (+1.94382811, +0.524747550), (+1.97749805, +0.344054848), (+1.87756896, +0.488879651), (+1.08703363, +0.388299465), (+1.09431005, +0.878672719), (+1.32726133, +0.996298969), (+1.07705009, +0.942425728), (+1.27574289, +0.590626538), (+1.22441292, +0.919729471E-1), (+1.72665763, +0.317806214), (+1.66499698, +0.107602187), (+1.49451089, +0.572842181), (+1.27844608, +0.248289928), (+1.35671592, +0.134952217), (+1.56989980, +0.121030889), (+1.97652233, +0.633188039E-1), (+1.37467146, +0.667173624), (+1.75532770, +0.230328202), (+1.23998570, +0.644059837), (+1.90095448, +0.605948031), (+1.23564494, +0.978042603), (+1.17977476, +0.464676082)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+88

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.9571179612652878, +0.77331430451117544), (+1.6971234706759069, +0.87805546503922738), (+1.2600584954665204, +0.90018885130572446), (+1.1625010694656428, +0.14493091084306997), (+1.1543901335243152, +0.53904832660758506), (+1.3854918548005395, +0.40433810120875280), (+1.3764799390557152, +0.86019639856890062), (+1.9840054664739684, +0.46227857616983570), (+1.4214984483536957, +0.32668827859907246), (+1.0421487392956836, +0.75713698221996506), (+1.1379268551157611, +0.28864853802324819), (+1.4371567656026754, +0.56569058564772112), (+1.9184296942894687, +0.33874269454094330E-1), (+1.4821127494553412, +0.72687193599745104), (+1.7732852166174695, +0.36047429810505860), (+1.0894417040814448, +0.42709892547658890), (+1.6104415825011726, +0.65125917662331678), (+1.3461835780169327, +0.81982234041585811), (+1.1569498836246015, +0.43467429981294037), (+1.1298678195578749, +0.27084659652814802), (+1.9213955122506881, +0.87718476093205511), (+1.5067089225174306, +0.51962594843248477), (+1.7348844504309562, +0.17680453985494682), (+1.6485717684833427, +0.71686891957066678E-1), (+1.5030051072212280, +0.14397998842610504), (+1.7489122035775391, +0.37189656672160276), (+1.7184042155544592, +0.40002160086371930), (+1.5625093507167633, +0.13356891016573380), (+1.9460220742673049, +0.50049264868450394), (+1.1665560309738834, +0.68253848571356146), (+1.9131948349857668, +0.95299195227713551), (+1.6275804420511299, +0.58391904818210771E-1), (+1.4793201252603754, +0.68606475568974756), (+1.6441619334739919, +0.90457345421609525), (+1.2411667821093646, +0.30699312148058178), (+1.9184224386522843, +0.70195770000404556), (+1.2797349936108471, +0.51970904816147423), (+1.2862527544157620, +0.70233331848749914), (+1.5544449404763274, +0.57065168426142454), (+1.8228748585939472, +0.42518064616815598), (+1.6073396358754724, +0.47144778549188238), (+1.4444518750285695, +0.90417662419334199), (+1.5873487085754396, +0.70491901124118772), (+1.7081015712112593, +0.83885261088981655), (+1.3122812148218024, +0.52105032206298885), (+1.0622156661231319, +0.41465373650808934), (+1.1050783004593603, +0.39620126975334569E-1), (+1.7874588201966728, +0.97604288383859417), (+1.6586584021271595, +0.87146915878539577), (+1.0365583998024648, +0.97979528101510738), (+1.0953054480328466, +0.50178266012110395), (+1.4100038992142077, +0.66006352573553373), (+1.8150407059203353, +0.36935436002267430), (+1.5077290502578313, +0.56147917241420131), (+1.5233524911578189, +0.27839629369204244), (+1.2193928405139296, +0.87790426575321368), (+1.5041746643220721, +0.62598536656958248E-1), (+1.6074014097485443, +0.40252447085933352), (+1.2167209287101055, +0.13432486563131973), (+1.6574161056354533, +0.82475270971389358), (+1.6679598418788055, +0.15209829570917965), (+1.8211667700988243, +0.48688606009142887), (+1.2455770799999266, +0.66834222333872517), (+1.0557428446156425, +0.94791661609557876E-1), (+1.4528852154574889, +0.73869741139736700), (+1.5316314565358393, +0.28458866104804748E-1), (+1.3660825901344107, +0.92962939152322044), (+1.8436381955033985, +0.18074293612479775), (+1.4000726294932306, +0.35469150685842121), (+1.4431515084184379, +0.72681969635037080), (+1.5472039769850947, +0.93766539123329939), (+1.7036942328816154, +0.50760371566279505), (+1.2988518161089824, +0.30431316497949124), (+1.5073901507147132, +0.94041232111024819), (+1.2900887716971652, +0.41445745755492447), (+1.6860825648473750, +0.16988640389532661), (+1.9987634124672091, +0.56013437443180303), (+1.2434737848495159, +0.74970642614031513), (+1.0152047584396287, +0.16483055745674102E-2), (+1.3072319268235510, +0.38401777075759846), (+1.5793690142402212, +0.51462935921472663), (+1.2905540664768500, +0.25247101570966879E-1), (+1.8647615780634172, +0.30353778841879853), (+1.9289281085972070, +0.33044745035719714), (+1.0535349939343681, +0.75698641649364162), (+1.3439629413625935, +0.43536685509611628), (+1.5807499240689560, +0.14276421240988846), (+1.8031986461529144, +0.11115452671453163)

24

25adat = getFFTR(getFFTF(data)) / size(data)

26adat

27(+1.9571179612652871, +0.77331430451117555), (+1.6971234706759069, +0.87805546503922749), (+1.2600584954665202, +0.90018885130572457), (+1.1625010694656426, +0.14493091084306997), (+1.1543901335243150, +0.53904832660758517), (+1.3854918548005390, +0.40433810120875263), (+1.3764799390557152, +0.86019639856890073), (+1.9840054664739681, +0.46227857616983575), (+1.4214984483536948, +0.32668827859907240), (+1.0421487392956834, +0.75713698221996495), (+1.1379268551157613, +0.28864853802324847), (+1.4371567656026754, +0.56569058564772101), (+1.9184296942894690, +0.33874269454094594E-1), (+1.4821127494553414, +0.72687193599745115), (+1.7732852166174686, +0.36047429810505860), (+1.0894417040814448, +0.42709892547658906), (+1.6104415825011720, +0.65125917662331689), (+1.3461835780169324, +0.81982234041585789), (+1.1569498836246015, +0.43467429981294037), (+1.1298678195578744, +0.27084659652814796), (+1.9213955122506881, +0.87718476093205522), (+1.5067089225174308, +0.51962594843248466), (+1.7348844504309560, +0.17680453985494660), (+1.6485717684833430, +0.71686891957066651E-1), (+1.5030051072212276, +0.14397998842610510), (+1.7489122035775386, +0.37189656672160287), (+1.7184042155544590, +0.40002160086371935), (+1.5625093507167629, +0.13356891016573361), (+1.9460220742673051, +0.50049264868450394), (+1.1665560309738836, +0.68253848571356146), (+1.9131948349857659, +0.95299195227713507), (+1.6275804420511299, +0.58391904818211084E-1), (+1.4793201252603745, +0.68606475568974767), (+1.6441619334739919, +0.90457345421609503), (+1.2411667821093646, +0.30699312148058200), (+1.9184224386522848, +0.70195770000404567), (+1.2797349936108462, +0.51970904816147412), (+1.2862527544157625, +0.70233331848749903), (+1.5544449404763270, +0.57065168426142465), (+1.8228748585939465, +0.42518064616815587), (+1.6073396358754721, +0.47144778549188227), (+1.4444518750285689, +0.90417662419334188), (+1.5873487085754396, +0.70491901124118794), (+1.7081015712112595, +0.83885261088981700), (+1.3122812148218017, +0.52105032206298896), (+1.0622156661231323, +0.41465373650808951), (+1.1050783004593598, +0.39620126975334784E-1), (+1.7874588201966721, +0.97604288383859417), (+1.6586584021271589, +0.87146915878539566), (+1.0365583998024646, +0.97979528101510704), (+1.0953054480328461, +0.50178266012110384), (+1.4100038992142077, +0.66006352573553373), (+1.8150407059203344, +0.36935436002267452), (+1.5077290502578315, +0.56147917241420142), (+1.5233524911578191, +0.27839629369204277), (+1.2193928405139292, +0.87790426575321368), (+1.5041746643220717, +0.62598536656958234E-1), (+1.6074014097485445, +0.40252447085933341), (+1.2167209287101051, +0.13432486563131971), (+1.6574161056354539, +0.82475270971389347), (+1.6679598418788046, +0.15209829570917976), (+1.8211667700988245, +0.48688606009142887), (+1.2455770799999271, +0.66834222333872562), (+1.0557428446156418, +0.94791661609557779E-1), (+1.4528852154574885, +0.73869741139736722), (+1.5316314565358395, +0.28458866104805101E-1), (+1.3660825901344102, +0.92962939152322044), (+1.8436381955033989, +0.18074293612479783), (+1.4000726294932311, +0.35469150685842143), (+1.4431515084184376, +0.72681969635037091), (+1.5472039769850945, +0.93766539123329906), (+1.7036942328816151, +0.50760371566279483), (+1.2988518161089821, +0.30431316497949112), (+1.5073901507147134, +0.94041232111024764), (+1.2900887716971643, +0.41445745755492458), (+1.6860825648473750, +0.16988640389532686), (+1.9987634124672091, +0.56013437443180347), (+1.2434737848495159, +0.74970642614031502), (+1.0152047584396287, +0.16483055745675919E-2), (+1.3072319268235513, +0.38401777075759858), (+1.5793690142402206, +0.51462935921472652), (+1.2905540664768502, +0.25247101570966587E-1), (+1.8647615780634168, +0.30353778841879869), (+1.9289281085972070, +0.33044745035719719), (+1.0535349939343681, +0.75698641649364151), (+1.3439629413625929, +0.43536685509611622), (+1.5807499240689564, +0.14276421240988871), (+1.8031986461529146, +0.11115452671453169)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+65

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.36282527563179520942561513354915023, +0.775541177539924083479372744971898253E-1), (+1.50168491897399744835899471505191574, +0.439620702688746361448744449332407225E-1), (+1.60447971019474609974775936026334807, +0.283463070940198274478488164998242457), (+1.07609080618718756749321239864302931, +0.681314389728347881140420791177333313), (+1.05383196220026629197883702974889344, +0.102624461639456177149724711844924598), (+1.03305250388660834639334924554029957, +0.719087623935792203860534800951039754), (+1.92730531279046519126938493607976831, +0.673366765471846862189082693561506200), (+1.81180976558971150181847299486455361, +0.443080143702228032263133354428501324), (+1.45380566962383047031089057391536362, +0.568600007455933807436424603366528792), (+1.28995577424772332051810212642747239, +0.314000151370122299309041294929325770), (+1.45266000074389399300963000990870663, +0.497862596770965035703187135713165505), (+1.18704588343009250808848472889757546, +0.772064400803565051771615977114235854), (+1.62815999843705435524176921535932405, +0.233418729623932561883451125633774639), (+1.50079593438885726680147310983510954, +0.556717382732055205487513542123254791), (+1.32021003303049557355183206865146163, +0.634427439572034255317629640022564520), (+1.46872195689854017844908693252171879, +0.260847619783893007724656805447905612), (+1.05427550151061767554908998091105448, +0.350749905829521372508675484672396256E-1), (+1.35594487404183769667794387805362177, +0.201964327225871927205701128075592177), (+1.78123714438598285666425471757102117, +0.411517738365096164653092063195727232), (+1.26358254131944786138030763976719451, +0.136545653657108642257674819988641431), (+1.53405103737698218274352959588713412, +0.201961792462564471306893871409492239), (+1.94769717073721926414367428560828847, +0.803628356263457015656979638022725265), (+1.41683754297443572293091769785322200, +0.961648262810386277246783588125204567), (+1.14942132711415976706152311151265691, +0.615036502583991767305254684129265065), (+1.62091686552315180258395808096461641, +0.929570891934217747795347125868496945), (+1.52255156075725694995819530154178425, +0.243680735427389069444274549397585804), (+1.98036487334536219578525183924706355, +0.980997116351914326076573217527295285), (+1.75242616796433058597235616948233045, +0.595063467235655202498800349952351951), (+1.13849047352810466457589214769524211, +0.489905937657304840910189622157771764), (+1.39924923250223466398278976609973200, +0.155203423337089735689452920151057985), (+1.43612042857250991104628266613339908, +0.569339996208753890117882970709056327), (+1.43641309856728938611462732110838659, +0.835408742288418973458345257738085553), (+1.50839185459007547338987236111607192, +0.209848432858080791921822079710945467), (+1.96455757662338027012677904836834327, +0.361150822258804580761637684259502082E-1), (+1.50607204829090656847641921651734652, +0.856797490795111899066910791060568890), (+1.28908656655786383462852568207265695, +0.271021591152057251479480135292348423), (+1.43011810195020056351376097585935743, +0.643923046027854021347055894637156502), (+1.13262442320322369594639717289039534, +0.796190147900059599779486345397841860), (+1.92212877545363192311056348203000685, +0.928503719676099418207018317649636129), (+1.05458033076553092604638027432118119, +0.133061641768660709804903252025054351), (+1.32702583373320833297909542344231809, +0.657566571186389425724582368297625442), (+1.42811004895596427563088099330272134, +0.611031366123634112071849925390816787), (+1.83257343561306115934372183204286224, +0.637037658741189325621540722758445683), (+1.07951471699878849046076613342561523, +0.882618911377743796711316146844354749), (+1.25960956819583629043543124462692169, +0.333621004195511325166396854251832486), (+1.95906375073996660237671224118253264, +0.594288544182943554291847815939201337), (+1.34795709437123880763431118537090823, +0.854298640840350314270432196528974667), (+1.37694461831738042996615149976321858, +0.936120186721063044313904288987042713E-1), (+1.86103166233019366325656970113784240, +0.276313628257633788942349633188508383E-1), (+1.07883663659778652655453305194843496, +0.218844165715221047084981923330302035), (+1.19760234141512837831742030793120876, +0.232577589754968554368115703423132344), (+1.93941638145970069588885623578685859, +0.650597580342357271745119696039922221), (+1.12562460889202038179900040020460502, +0.360025058966899449321782327690274018), (+1.54434254329510468057499550273700496, +0.853643315095562178402181249462781789), (+1.23311926418932509061785782254573537, +0.615768631802463527474862064934991228), (+1.14229124184845986797920223665511639, +0.167453159937485547203699382815747166), (+1.20540694804052477409270393009073056, +0.796124246514806425769349672262513197), (+1.65416408152785783534600801743702879, +0.355929010133826155136172704827482268), (+1.02231969545592917761114930843352474, +0.250065950735450761616128907679116338), (+1.04965538387139643774055581882812454, +0.215895229826019740971095572261087211), (+1.82342379180040242309333695392151962, +0.479367742995840228742302586778657997), (+1.04003304223282356527469109214102755, +0.808444871723206603319877673289843304), (+1.53549079693854668679565247882643759, +0.365092173961689507691635704379546132), (+1.13659097103072149088738499975540093, +0.288726399698270982284312105505835534E-1), (+1.88832358585634199620204543008347402, +0.544762367617935763625155733925235032)

41

42adat = getFFTR(getFFTF(data)) / size(data)

43adat

44(+1.36282527563179520942561513354914907, +0.775541177539924083479372744971897290E-1), (+1.50168491897399744835899471505191574, +0.439620702688746361448744449332405660E-1), (+1.60447971019474609974775936026334826, +0.283463070940198274478488164998242602), (+1.07609080618718756749321239864302950, +0.681314389728347881140420791177333313), (+1.05383196220026629197883702974889286, +0.102624461639456177149724711844924321), (+1.03305250388660834639334924554029996, +0.719087623935792203860534800951039657), (+1.92730531279046519126938493607976792, +0.673366765471846862189082693561505815), (+1.81180976558971150181847299486455303, +0.443080143702228032263133354428500890), (+1.45380566962383047031089057391536401, +0.568600007455933807436424603366528888), (+1.28995577424772332051810212642747181, +0.314000151370122299309041294929325674), (+1.45266000074389399300963000990870625, +0.497862596770965035703187135713165409), (+1.18704588343009250808848472889757546, +0.772064400803565051771615977114235854), (+1.62815999843705435524176921535932444, +0.233418729623932561883451125633774952), (+1.50079593438885726680147310983510877, +0.556717382732055205487513542123254695), (+1.32021003303049557355183206865146182, +0.634427439572034255317629640022564520), (+1.46872195689854017844908693252171879, +0.260847619783893007724656805447905564), (+1.05427550151061767554908998091105487, +0.350749905829521372508675484672397280E-1), (+1.35594487404183769667794387805362196, +0.201964327225871927205701128075591864), (+1.78123714438598285666425471757102117, +0.411517738365096164653092063195727087), (+1.26358254131944786138030763976719354, +0.136545653657108642257674819988640950), (+1.53405103737698218274352959588713354, +0.201961792462564471306893871409492215), (+1.94769717073721926414367428560828866, +0.803628356263457015656979638022725073), (+1.41683754297443572293091769785322200, +0.961648262810386277246783588125204567), (+1.14942132711415976706152311151265691, +0.615036502583991767305254684129265258), (+1.62091686552315180258395808096461680, +0.929570891934217747795347125868497041), (+1.52255156075725694995819530154178464, +0.243680735427389069444274549397585900), (+1.98036487334536219578525183924706240, +0.980997116351914326076573217527295188), (+1.75242616796433058597235616948233084, +0.595063467235655202498800349952352047), (+1.13849047352810466457589214769524211, +0.489905937657304840910189622157771908), (+1.39924923250223466398278976609973200, +0.155203423337089735689452920151058202), (+1.43612042857250991104628266613339889, +0.569339996208753890117882970709056519), (+1.43641309856728938611462732110838717, +0.835408742288418973458345257738085553), (+1.50839185459007547338987236111607153, +0.209848432858080791921822079710945250), (+1.96455757662338027012677904836834289, +0.361150822258804580761637684259497808E-1), (+1.50607204829090656847641921651734691, +0.856797490795111899066910791060568890), (+1.28908656655786383462852568207265657, +0.271021591152057251479480135292348471), (+1.43011810195020056351376097585935782, +0.643923046027854021347055894637156694), (+1.13262442320322369594639717289039553, +0.796190147900059599779486345397842342), (+1.92212877545363192311056348203000762, +0.928503719676099418207018317649636514), (+1.05458033076553092604638027432118004, +0.133061641768660709804903252025053917), (+1.32702583373320833297909542344231828, +0.657566571186389425724582368297625539), (+1.42811004895596427563088099330272134, +0.611031366123634112071849925390816979), (+1.83257343561306115934372183204286282, +0.637037658741189325621540722758445683), (+1.07951471699878849046076613342561504, +0.882618911377743796711316146844354845), (+1.25960956819583629043543124462692208, +0.333621004195511325166396854251832390), (+1.95906375073996660237671224118253206, +0.594288544182943554291847815939201144), (+1.34795709437123880763431118537090765, +0.854298640840350314270432196528974378), (+1.37694461831738042996615149976321878, +0.936120186721063044313904288987043917E-1), (+1.86103166233019366325656970113784221, +0.276313628257633788942349633188505675E-1), (+1.07883663659778652655453305194843516, +0.218844165715221047084981923330301939), (+1.19760234141512837831742030793120837, +0.232577589754968554368115703423132151), (+1.93941638145970069588885623578685916, +0.650597580342357271745119696039922414), (+1.12562460889202038179900040020460425, +0.360025058966899449321782327690273681), (+1.54434254329510468057499550273700515, +0.853643315095562178402181249462782078), (+1.23311926418932509061785782254573517, +0.615768631802463527474862064934991131), (+1.14229124184845986797920223665511677, +0.167453159937485547203699382815747431), (+1.20540694804052477409270393009073036, +0.796124246514806425769349672262513197), (+1.65416408152785783534600801743702917, +0.355929010133826155136172704827482268), (+1.02231969545592917761114930843352397, +0.250065950735450761616128907679115857), (+1.04965538387139643774055581882812377, +0.215895229826019740971095572261086874), (+1.82342379180040242309333695392151962, +0.479367742995840228742302586778657997), (+1.04003304223282356527469109214102755, +0.808444871723206603319877673289842919), (+1.53549079693854668679565247882643778, +0.365092173961689507691635704379546373), (+1.13659097103072149088738499975540132, +0.288726399698270982284312105505835625E-1), (+1.88832358585634199620204543008347421, +0.544762367617935763625155733925235032)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+66

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.48848128, +1.17126334, +1.09301233, +1.38660598, +1.57555330, +1.64768708, +1.24258924, +1.94846737, +1.90317893, +1.30972195, +1.82516515, +1.30012941, +1.96809745, +1.41005659, +1.94243360, +1.49218583, +1.03727841, +1.14232183, +1.72123313, +1.21460187, +1.94842041, +1.64423275, +1.70029235, +1.36771393, +1.08327496, +1.38884306, +1.98614311, +1.87796533, +1.09163308, +1.42841303, +1.27678645, +1.78995228, +1.81306505, +1.38848209, +1.95349836, +1.39520550, +1.54162717, +1.26604974, +1.54486036, +1.76050591, +1.61122274, +1.94477832, +1.64409173, +1.17390585, +1.29318404, +1.03870082, +1.82958376, +1.19558167, +1.29306543, +1.54323578, +1.33020210, +1.61781418, +1.70728636, +1.58921266, +1.80118620, +1.05896366, +1.10175598, +1.12315202, +1.04551291, +1.49131942, +1.49380231, +1.22064757, +1.14331746, +1.27895129, +1.71188569, +1.96123290

58

59adat = getFFTR(getFFTF(data)) / size(data)

60adat

61+1.48848128, +1.17126298, +1.09301198, +1.38660574, +1.57555294, +1.64768672, +1.24258935, +1.94846785, +1.90317905, +1.30972207, +1.82516527, +1.30012953, +1.96809757, +1.41005647, +1.94243324, +1.49218547, +1.03727829, +1.14232135, +1.72123313, +1.21460211, +1.94842064, +1.64423275, +1.70029247, +1.36771417, +1.08327472, +1.38884270, +1.98614299, +1.87796485, +1.09163284, +1.42841268, +1.27678680, +1.78995287, +1.81306577, +1.38848269, +1.95349908, +1.39520609, +1.54162765, +1.26605034, +1.54486108, +1.76050627, +1.61122358, +1.94477868, +1.64409137, +1.17390561, +1.29318380, +1.03870046, +1.82958353, +1.19558144, +1.29306555, +1.54323602, +1.33020246, +1.61781406, +1.70728648, +1.58921278, +1.80118632, +1.05896354, +1.10175574, +1.12315178, +1.04551268, +1.49131906, +1.49380243, +1.22064805, +1.14331770, +1.27895141, +1.71188581, +1.96123302

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+64

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.0759065492189857, +1.0703118779325611, +1.3342306916997475, +1.5200926521569138, +1.5819522889071269, +1.6292497762519043, +1.3523726698744176, +1.3463357911395892, +1.6294414079796873, +1.1393189800109009, +1.4297687595805515, +1.6137551607910601, +1.7144330717270060, +1.0259207908040349, +1.2281178621836120, +1.5315272185247568, +1.8452044772036240, +1.0219993919769390, +1.8575393736623349, +1.0926070823116456, +1.5976182188588595, +1.4163565379617746, +1.9699307689783463, +1.5726489585895274, +1.4122505938974246, +1.7389275626561278, +1.9201175288351475, +1.5128164367693584, +1.2906494975112581, +1.0275065869766276, +1.0553096916987501, +1.6604902041391054, +1.2079923896099429, +1.7344955489140972, +1.2848152533356616, +1.3362033332107814, +1.8344018825390598, +1.5922352319805571, +1.4746173458137701, +1.6005121818688814, +1.6708316280069937, +1.9879150219838282, +1.8337123408099054, +1.5377160196169117, +1.6670534018881513, +1.0702469012026983, +1.8941712922948248, +1.7808305576931724, +1.6953084643222223, +1.9251421128856085, +1.8438860838128894, +1.5863324592525991, +1.0491206118208627, +1.3311147894503526, +1.5013828884313303, +1.4266376524830040, +1.4094515137155348, +1.7780970853796232, +1.4835812259893209, +1.8259268606373449, +1.8598571066192457, +1.7436594289491349, +1.2208966161585850, +1.2739714206325492

75

76adat = getFFTR(getFFTF(data)) / size(data)

77adat

78+1.0759065492189859, +1.0703118779325611, +1.3342306916997475, +1.5200926521569140, +1.5819522889071274, +1.6292497762519038, +1.3523726698744178, +1.3463357911395895, +1.6294414079796875, +1.1393189800109012, +1.4297687595805519, +1.6137551607910605, +1.7144330717270064, +1.0259207908040346, +1.2281178621836120, +1.5315272185247570, +1.8452044772036240, +1.0219993919769392, +1.8575393736623351, +1.0926070823116458, +1.5976182188588597, +1.4163565379617744, +1.9699307689783465, +1.5726489585895276, +1.4122505938974248, +1.7389275626561276, +1.9201175288351480, +1.5128164367693584, +1.2906494975112583, +1.0275065869766271, +1.0553096916987503, +1.6604902041391056, +1.2079923896099432, +1.7344955489140972, +1.2848152533356618, +1.3362033332107817, +1.8344018825390602, +1.5922352319805566, +1.4746173458137706, +1.6005121818688817, +1.6708316280069939, +1.9879150219838282, +1.8337123408099059, +1.5377160196169120, +1.6670534018881515, +1.0702469012026981, +1.8941712922948251, +1.7808305576931729, +1.6953084643222223, +1.9251421128856088, +1.8438860838128897, +1.5863324592525994, +1.0491206118208631, +1.3311147894503523, +1.5013828884313303, +1.4266376524830042, +1.4094515137155352, +1.7780970853796230, +1.4835812259893215, +1.8259268606373449, +1.8598571066192460, +1.7436594289491345, +1.2208966161585855, +1.2739714206325494

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+100

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.93937416594113289135830575266986657, +1.24228835717040997813656212753407301, +1.97423708602065719376639686653908879, +1.50086112042298239824796754729075846, +1.07491056286921075128066963790257232, +1.40113200973714494857936868747656821, +1.34138427563657922691570885773716310, +1.05346073328996357981583826938763991, +1.44917600204182621701724006706704925, +1.59049326604179572597641513356361966, +1.29788865719537718150354391223118372, +1.79532497446738998813780441752241527, +1.92861697716104840939216874081927454, +1.80500341143314538321262695847741482, +1.79291653880008250550129450855872350, +1.17561375823778458870902415511708035, +1.59563285496691232135656119733573712, +1.80404440898447039169313065671302820, +1.50306368695397676022835682350651743, +1.97771177862337777379932905595224545, +1.75728866405869659352699291534772014, +1.53465216359323888491516132626862757, +1.95232871887704515915112069713049185, +1.99582921050990384077120778928378020, +1.13204735967954858688216126808811738, +1.69379079810766969307969439508896537, +1.92215070379289129169688202569661621, +1.57628811732940902195609463239277285, +1.22146648878511728075483162863228555, +1.59405078994852054012593154730050390, +1.21798441573640064515149662434938740, +1.65675273778630283591762188523904698, +1.71602286126215035004532666780066284, +1.83816463776645027596736655046864804, +1.45460266258126649105621824807617034, +1.82233980631585217745646073537746553, +1.00526221098414458774353713604034190, +1.29611138489318862977878255594491358, +1.53796576872897383152151620611411855, +1.64612063533371798090585676462829404, +1.42128328026921558036329182264320884, +1.64893863597822419280577849209641853, +1.05067214921908820575487943216565848, +1.02820660185126274745869542987916375, +1.78479266040185312573858945046441680, +1.65436491242288975199836243643646712, +1.91609701494657805286839867042156022, +1.71053329876277034717009699853123981, +1.91099705818847391889980108549322728, +1.87751744602139593290334164624890335, +1.72844370949020544927968187291910543, +1.59317459224532526608907987921606702, +1.60671679461492720338953277942611478, +1.40310694246721553030061400750398779, +1.79909464532981039243056137367023878, +1.08868827582913923332360709237729969, +1.93502261258407942779963688748919927, +1.49359567805735551266894988598752691, +1.16863089872923899031342768180595915, +1.70061710298382704548864741817304437, +1.20645628587908151747753276141962242, +1.06149780734835133757876366169352052, +1.18062762859235129096449396575498739, +1.42305822430008281589381535797113472, +1.81182800572012137734350796306248236, +1.82937369284388449596457458417853713, +1.66570620523951264223420137812222950, +1.61499693109434392175468221518439787, +1.11286280553163983058223143971787694, +1.21354897812840908449724662519949903, +1.39071396587996617456926368453742979, +1.73869213738648144955255396026520036, +1.75008189438437333909511056345219285, +1.23946249897842184278877495882237225, +1.85648815851158606565593478636130361, +1.14321896076475452535264161778894607, +1.34706125330766522519217181485950155, +1.51611849243988779167663102458472588, +1.19777865197099042092036466189649676, +1.80358654194553343711778913026171076, +1.55941669560241737352377155848894917, +1.21828642925651695295632570847899473, +1.60141156026360459558623214955493005, +1.56188118440238184336183423554966148, +1.85246600899925724136683428060980085, +1.29503187610876433082350706438195291, +1.07260029093469080188060581316560949, +1.75870614658158430309921718595125866, +1.44818035268984978156092874721347588, +1.68455324529859878902905263044061699, +1.42210734862728126600175817228795677, +1.18172062633888493647382406614611110, +1.32681305899828921442557631855717610, +1.70029449364986232020855088615685819, +1.67899602775008479103326851065004398, +1.38478627537445798477673429294802892, +1.53483298417940994357594554122852360, +1.91707883848257700970318334799526846, +1.37086894518843248509997962435717695, +1.95983056165634043876710447971880321

92

93adat = getFFTR(getFFTF(data)) / size(data)

94adat

95+1.93937416594113289135830575266986638, +1.24228835717040997813656212753407282, +1.97423708602065719376639686653908859, +1.50086112042298239824796754729075826, +1.07491056286921075128066963790257232, +1.40113200973714494857936868747656879, +1.34138427563657922691570885773716329, +1.05346073328996357981583826938763991, +1.44917600204182621701724006706704925, +1.59049326604179572597641513356361947, +1.29788865719537718150354391223118391, +1.79532497446738998813780441752241489, +1.92861697716104840939216874081927416, +1.80500341143314538321262695847741501, +1.79291653880008250550129450855872350, +1.17561375823778458870902415511708015, +1.59563285496691232135656119733573693, +1.80404440898447039169313065671302820, +1.50306368695397676022835682350651782, +1.97771177862337777379932905595224487, +1.75728866405869659352699291534771994, +1.53465216359323888491516132626862776, +1.95232871887704515915112069713049204, +1.99582921050990384077120778928378020, +1.13204735967954858688216126808811738, +1.69379079810766969307969439508896576, +1.92215070379289129169688202569661659, +1.57628811732940902195609463239277266, +1.22146648878511728075483162863228574, +1.59405078994852054012593154730050390, +1.21798441573640064515149662434938740, +1.65675273778630283591762188523904698, +1.71602286126215035004532666780066284, +1.83816463776645027596736655046864804, +1.45460266258126649105621824807617073, +1.82233980631585217745646073537746553, +1.00526221098414458774353713604034170, +1.29611138489318862977878255594491377, +1.53796576872897383152151620611411893, +1.64612063533371798090585676462829423, +1.42128328026921558036329182264320864, +1.64893863597822419280577849209641834, +1.05067214921908820575487943216565867, +1.02820660185126274745869542987916375, +1.78479266040185312573858945046441718, +1.65436491242288975199836243643646751, +1.91609701494657805286839867042156099, +1.71053329876277034717009699853123981, +1.91099705818847391889980108549322748, +1.87751744602139593290334164624890335, +1.72844370949020544927968187291910563, +1.59317459224532526608907987921606702, +1.60671679461492720338953277942611478, +1.40310694246721553030061400750398779, +1.79909464532981039243056137367023878, +1.08868827582913923332360709237729969, +1.93502261258407942779963688748919946, +1.49359567805735551266894988598752710, +1.16863089872923899031342768180595954, +1.70061710298382704548864741817304418, +1.20645628587908151747753276141962242, +1.06149780734835133757876366169352032, +1.18062762859235129096449396575498759, +1.42305822430008281589381535797113472, +1.81182800572012137734350796306248255, +1.82937369284388449596457458417853752, +1.66570620523951264223420137812222988, +1.61499693109434392175468221518439768, +1.11286280553163983058223143971787694, +1.21354897812840908449724662519949884, +1.39071396587996617456926368453743018, +1.73869213738648144955255396026520016, +1.75008189438437333909511056345219265, +1.23946249897842184278877495882237244, +1.85648815851158606565593478636130381, +1.14321896076475452535264161778894607, +1.34706125330766522519217181485950155, +1.51611849243988779167663102458472627, +1.19777865197099042092036466189649715, +1.80358654194553343711778913026171076, +1.55941669560241737352377155848894917, +1.21828642925651695295632570847899473, +1.60141156026360459558623214955493024, +1.56188118440238184336183423554966148, +1.85246600899925724136683428060980065, +1.29503187610876433082350706438195330, +1.07260029093469080188060581316561006, +1.75870614658158430309921718595125827, +1.44818035268984978156092874721347607, +1.68455324529859878902905263044061718, +1.42210734862728126600175817228795677, +1.18172062633888493647382406614611091, +1.32681305899828921442557631855717610, +1.70029449364986232020855088615685819, +1.67899602775008479103326851065004418, +1.38478627537445798477673429294802892, +1.53483298417940994357594554122852341, +1.91707883848257700970318334799526846, +1.37086894518843248509997962435717753, +1.95983056165634043876710447971880340

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+55

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.83783078, +0.180751026), (+1.96299696, +0.841167033), (+1.69915926, +0.991646409), (+1.56657970, +0.106289268), (+1.85400712, +0.707988560), (+1.85171938, +0.163882852), (+1.24553967, +0.227167070), (+1.52957463, +0.100238740), (+1.07226121, +0.464634895E-1), (+1.89051867, +0.570462584), (+1.82065725, +0.579147935E-1), (+1.47297645, +0.799678624), (+1.27881312, +0.187076032), (+1.18978858, +0.894195855), (+1.72392201, +0.438044012), (+1.23374295, +0.148952663), (+1.18108845, +0.171023607E-1), (+1.15225446, +0.341776490), (+1.69276178, +0.732517362), (+1.66854787, +0.478897393), (+1.08909965, +0.701594293), (+1.47905827, +0.164725006), (+1.60141587, +0.378882706), (+1.90123725, +0.748218358), (+1.12871718, +0.562699556), (+1.54982376, +0.189727187), (+1.45596409, +0.923845828), (+1.91981292, +0.258880079), (+1.31754470, +0.559335887), (+1.86296368, +0.109804630), (+1.87919080, +0.704431117), (+1.67601693, +0.568409085), (+1.39020813, +0.583525240), (+1.28580213, +0.495476663), (+1.79342735, +0.569234252), (+1.19376945, +0.436805069), (+1.22327387, +0.432028592), (+1.83633244, +0.557430923), (+1.29404640, +0.206669271), (+1.26475179, +0.588469326), (+1.74558854, +0.994526088), (+1.05825281, +0.913800657), (+1.06583166, +0.659748793), (+1.36230147, +0.989011168), (+1.24295115, +0.556742787), (+1.04967415, +0.527988672), (+1.60858250, +0.894163370), (+1.77991498, +0.384003043), (+1.43488479, +0.304330230), (+1.34088230, +0.438241363), (+1.72516298, +0.257039845), (+1.68057990, +0.242755651), (+1.01749110, +0.722818077), (+1.61069942, +0.730143726), (+1.77487421, +0.589916229)

109

110adat = getFFTR(getFFTF(data)) / size(data)

111adat

112(+1.83783054, +0.180750966), (+1.96299648, +0.841166854), (+1.69915891, +0.991646409), (+1.56657922, +0.106289290), (+1.85400712, +0.707988560), (+1.85171962, +0.163883001), (+1.24554014, +0.227167204), (+1.52957380, +0.100238733), (+1.07226086, +0.464636013E-1), (+1.89051855, +0.570462584), (+1.82065666, +0.579144917E-1), (+1.47297657, +0.799678922), (+1.27881312, +0.187075943), (+1.18978846, +0.894195855), (+1.72392237, +0.438044041), (+1.23374319, +0.148952797), (+1.18108892, +0.171024315E-1), (+1.15225494, +0.341776609), (+1.69276166, +0.732517362), (+1.66854775, +0.478897393), (+1.08909953, +0.701594353), (+1.47905827, +0.164725050), (+1.60141587, +0.378882945), (+1.90123713, +0.748218238), (+1.12871742, +0.562699497), (+1.54982364, +0.189727128), (+1.45596397, +0.923845887), (+1.91981339, +0.258880347), (+1.31754494, +0.559335947), (+1.86296403, +0.109804794), (+1.87919080, +0.704430997), (+1.67601681, +0.568409145), (+1.39020777, +0.583525240), (+1.28580201, +0.495476812), (+1.79342747, +0.569234192), (+1.19376945, +0.436805099), (+1.22327387, +0.432028502), (+1.83633244, +0.557431042), (+1.29404688, +0.206669480), (+1.26475263, +0.588469505), (+1.74558866, +0.994525969), (+1.05825281, +0.913800478), (+1.06583142, +0.659748793), (+1.36230123, +0.989011109), (+1.24295127, +0.556742847), (+1.04967415, +0.527988791), (+1.60858250, +0.894163430), (+1.77991509, +0.384003162), (+1.43488479, +0.304330170), (+1.34088290, +0.438241512), (+1.72516358, +0.257039875), (+1.68057954, +0.242755681), (+1.01749098, +0.722818017), (+1.61069942, +0.730143726), (+1.77487421, +0.589916110)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+95

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.4927840950701299, +0.47093551300553771), (+1.4351610967488275, +0.11194383381421757), (+1.3648380880074931, +0.66560575704003877), (+1.6047448018011308, +0.86680120586101994), (+1.0267450517794261, +0.18219472457177610), (+1.7754614496740770, +0.77338331321201759), (+1.5978350161052883, +0.47124193847187734), (+1.9609132379585137, +0.30502443566710402), (+1.1792651857910466, +0.43734475325526212E-1), (+1.6751243419292312, +0.81413984404808815), (+1.9881166538360688, +0.56275567263865511), (+1.8044482144246659, +0.94401364319137093), (+1.8488606534927585, +0.56495822322023292), (+1.5869781174268613, +0.97819162710870478), (+1.4489015732229895, +0.77735808323620370E-1), (+1.2476304772037794, +0.42292658193593635), (+1.7751315462656674, +0.66336574910879242), (+1.0945266361576935, +0.24542383520020927), (+1.7237445714151176, +0.50509035186082452), (+1.2413851557150468, +0.93157656027707136), (+1.4061433851117264, +0.77175835152172079), (+1.3474968678920360, +0.38141400410424509), (+1.9086665408295302, +0.20470110380133755), (+1.7068407011370512, +0.59399419608841331), (+1.0219285911355485, +0.38736617672636176), (+1.1511332799304106, +0.85602501404796083E-1), (+1.2060861188254082, +0.73159703482728089), (+1.4127917359999320, +0.85904302648657260), (+1.1973065101766700, +0.20349146200121493), (+1.1752909098861779, +0.83236277098548328), (+1.9231290502475926, +0.30362464424983904), (+1.2945664284996123, +0.63967087353836383E-1), (+1.1960432265500658, +0.55186099489503182), (+1.2574116634594157, +0.36079744234354194), (+1.3897478099526419, +0.26062286770933263), (+1.7859493714540129, +0.55081146418434201E-2), (+1.1815669021796675, +0.55292425201009077), (+1.2396494042448869, +0.32097347208415461), (+1.2051528513572427, +0.32361088205402200), (+1.6431880193373503, +0.11083257244410172E-1), (+1.3651735432626908, +0.30718178053074408), (+1.2055280496249172, +0.83833099391823718), (+1.8429139681368878, +0.26603957163730807), (+1.1431522788516790, +0.14757618787453719), (+1.6122844059918111, +0.87717669417643784), (+1.3087556067984707, +0.88114620165423041), (+1.8714135780997561, +0.83174731272441427), (+1.5902032772198931, +0.12854213617697541), (+1.8127991130912648, +0.42902001242471532), (+1.4365115790465581, +0.57602235975784000), (+1.7881290109632926, +0.45170332655192669), (+1.5155325695198032, +0.17876601124011349E-1), (+1.5169693046587405, +0.55288565441816362), (+1.6026869020128793, +0.49041033119993382), (+1.5637944578823162, +0.11923854614793528), (+1.5585424599816149, +0.21001421238976481), (+1.4223924709481441, +0.33065417269685571), (+1.1067183357963659, +0.88616945233898736), (+1.3824901216569803, +0.35135994596922160), (+1.1615825230684662, +0.92061416829110798), (+1.5111667924101702, +0.63050288168964497), (+1.9455133831428371, +0.71795126463384229), (+1.9763927820007647, +0.11783000436931246), (+1.5671404557137141, +0.78389928562508138), (+1.9493922646109789, +0.55386567390169850), (+1.7816657860472369, +0.26902564317166611), (+1.8918194002255704, +0.25735321049420568), (+1.1410514168031738, +0.56889661381495760E-1), (+1.1199530329640082, +0.28653649140026161), (+1.1742543223594566, +0.35002559254974797), (+1.6411340343621339, +0.36211815404619374), (+1.6492487716488591, +0.16137812441062249), (+1.2303647983593842, +0.49156089732242525), (+1.4088276813686333, +0.64247201168506263), (+1.5458601691644520, +0.15065552458614906), (+1.7106196201537762, +0.31319145665633807), (+1.4528373339082630, +0.60184119676028436), (+1.5082906713526945, +0.69056905704479687), (+1.3274270896136482, +0.29702074486677499E-1), (+1.5800635662623601, +0.45073476745289354), (+1.1757911902374953, +0.27304666280798073), (+1.3905972401625144, +0.43489495152188740), (+1.8310979617111045, +0.43028665693705426), (+1.6070718192497178, +0.69543644059490095E-1), (+1.9625450417460160, +0.13905150339679084), (+1.3854781249788575, +0.58047131978479416), (+1.9731369734719226, +0.33999349725180150), (+1.8912251361999259, +0.39058318034246609), (+1.2804658947159253, +0.12169537145052456), (+1.2967475492613865, +0.61693182707817307), (+1.8535691407210177, +0.63300023951772477E-1), (+1.4218210608237376, +0.43042324737398674), (+1.8627632836620984, +0.89592798677037844), (+1.0487927773374983, +0.75327344806056518), (+1.2361962980319134, +0.36849957548333379)

126

127adat = getFFTR(getFFTF(data)) / size(data)

128adat

129(+1.4927840950701323, +0.47093551300553865), (+1.4351610967488273, +0.11194383381421720), (+1.3648380880074928, +0.66560575704003844), (+1.6047448018011303, +0.86680120586101994), (+1.0267450517794259, +0.18219472457177607), (+1.7754614496740770, +0.77338331321201759), (+1.5978350161052883, +0.47124193847187751), (+1.9609132379585139, +0.30502443566710408), (+1.1792651857910468, +0.43734475325526406E-1), (+1.6751243419292325, +0.81413984404808826), (+1.9881166538360691, +0.56275567263865534), (+1.8044482144246665, +0.94401364319137071), (+1.8488606534927587, +0.56495822322023315), (+1.5869781174268616, +0.97819162710870455), (+1.4489015732229895, +0.77735808323620328E-1), (+1.2476304772037787, +0.42292658193593619), (+1.7751315462656667, +0.66336574910879209), (+1.0945266361576931, +0.24542383520020897), (+1.7237445714151169, +0.50509035186082407), (+1.2413851557150484, +0.93157656027707214), (+1.4061433851117251, +0.77175835152172023), (+1.3474968678920352, +0.38141400410424481), (+1.9086665408295296, +0.20470110380133752), (+1.7068407011370510, +0.59399419608841308), (+1.0219285911355482, +0.38736617672636159), (+1.1511332799304101, +0.85602501404795847E-1), (+1.2060861188254084, +0.73159703482728067), (+1.4127917359999322, +0.85904302648657249), (+1.1973065101766707, +0.20349146200121518), (+1.1752909098861788, +0.83236277098548361), (+1.9231290502475933, +0.30362464424983904), (+1.2945664284996123, +0.63967087353836202E-1), (+1.1960432265500651, +0.55186099489503149), (+1.2574116634594152, +0.36079744234354177), (+1.3897478099526415, +0.26062286770933202), (+1.7859493714540116, +0.55081146418432892E-2), (+1.1815669021796666, +0.55292425201009077), (+1.2396494042448860, +0.32097347208415444), (+1.2051528513572445, +0.32361088205402239), (+1.6431880193373494, +0.11083257244410193E-1), (+1.3651735432626895, +0.30718178053074396), (+1.2055280496249166, +0.83833099391823707), (+1.8429139681368878, +0.26603957163730807), (+1.1431522788516784, +0.14757618787453708), (+1.6122844059918107, +0.87717669417643773), (+1.3087556067984707, +0.88114620165423052), (+1.8714135780997569, +0.83174731272441405), (+1.5902032772198942, +0.12854213617697582), (+1.8127991130912662, +0.42902001242471544), (+1.4365115790465586, +0.57602235975784000), (+1.7881290109632919, +0.45170332655192663), (+1.5155325695198030, +0.17876601124011265E-1), (+1.5169693046587405, +0.55288565441816351), (+1.6026869020128796, +0.49041033119993371), (+1.5637944578823153, +0.11923854614793515), (+1.5585424599816133, +0.21001421238976462), (+1.4223924709481428, +0.33065417269685526), (+1.1067183357963684, +0.88616945233898781), (+1.3824901216569789, +0.35135994596922110), (+1.1615825230684651, +0.92061416829110776), (+1.5111667924101688, +0.63050288168964486), (+1.9455133831428360, +0.71795126463384251), (+1.9763927820007643, +0.11783000436931264), (+1.5671404557137134, +0.78389928562508127), (+1.9493922646109791, +0.55386567390169883), (+1.7816657860472369, +0.26902564317166616), (+1.8918194002255713, +0.25735321049420590), (+1.1410514168031747, +0.56889661381495898E-1), (+1.1199530329640084, +0.28653649140026188), (+1.1742543223594566, +0.35002559254974797), (+1.6411340343621335, +0.36211815404619352), (+1.6492487716488591, +0.16137812441062227), (+1.2303647983593837, +0.49156089732242531), (+1.4088276813686329, +0.64247201168506229), (+1.5458601691644516, +0.15065552458614881), (+1.7106196201537749, +0.31319145665633802), (+1.4528373339082652, +0.60184119676028447), (+1.5082906713526929, +0.69056905704479676), (+1.3274270896136473, +0.29702074486677488E-1), (+1.5800635662623597, +0.45073476745289315), (+1.1757911902374945, +0.27304666280798062), (+1.3905972401625140, +0.43489495152188745), (+1.8310979617111038, +0.43028665693705437), (+1.6070718192497180, +0.69543644059489984E-1), (+1.9625450417460164, +0.13905150339679101), (+1.3854781249788579, +0.58047131978479438), (+1.9731369734719231, +0.33999349725180150), (+1.8912251361999264, +0.39058318034246597), (+1.2804658947159258, +0.12169537145052441), (+1.2967475492613858, +0.61693182707817262), (+1.8535691407210173, +0.63300023951772588E-1), (+1.4218210608237372, +0.43042324737398685), (+1.8627632836620975, +0.89592798677037822), (+1.0487927773374972, +0.75327344806056484), (+1.2361962980319123, +0.36849957548333356)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+93

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.82231370172282715379347843777352993, +0.479319985359562037644675625706516588), (+1.41493592396799193856058127074933280, +0.473576289714192158514940754094658331), (+1.66105611361965690777644630311487976, +0.652644524216708183021132545839136239), (+1.60763623131394848243929539219549977, +0.389186328030505766367751700077181954), (+1.64851055474543256465450433918531854, +0.945519407184767414153305329649149021), (+1.65578586375138697947957236241602306, +0.638286580663069781694130296550668684), (+1.79767807691620557059751903500373127, +0.985448842126473519074604417986362647), (+1.65300963511916709889472037590966372, +0.869910452374011419109805922987057845), (+1.22401107450265263013360521519225277, +0.128555326616969922296642461374752902), (+1.32233395225786882572024053294206224, +0.745469771997526054846781814891026266E-1), (+1.34426574396003972236787789080097504, +0.415554412310981497734720305077877196), (+1.44533874642303220643104795199416380, +0.468207277947909545143598503132295499), (+1.33742142475898636457672912812581442, +0.104789292897832211892940326718658672), (+1.94649896557249045706609764999273833, +0.538098105153979912031677519813910587), (+1.77929978491664583340773979978065815, +0.275536984081543123498234379398853141), (+1.04681667288827246143390509047954660, +0.856682901910958717590796430168620726), (+1.74898029952667746337746154810723978, +0.312190210077089585285024565315594088), (+1.11756336400128078173252322365009575, +0.278376295712489247001997493023442435), (+1.15023602624737123979940779152525510, +0.760334420201905813271368563230006483E-1), (+1.57011955890421668934497681349133870, +0.111819928705830110495496434531311619), (+1.80065782668095342484095545796077014, +0.762101422882425273635706363015454547), (+1.75932061413274374039036550640453800, +0.146914757452949340336733659898118281), (+1.42577857834771432298016381950638878, +0.464732806317250818289100917249542060), (+1.83615579965475725878757935253353383, +0.680451557846367091582093793609847655), (+1.66842736701126422639723925135778109, +0.393865445643432834641829721899895676), (+1.13103238828833463641308392210450481, +0.942039645022798082802187852240070461), (+1.20065246456940301756227157558420291, +0.902651704360069768486023018013781161), (+1.95799779617491666076263711840533157, +0.400917662075120224735969899177071785), (+1.07567226096324946042681565407230060, +0.403512982849249495163323160759790093), (+1.59768616214492040436665210259331310, +0.562796519977505407516140843980803741), (+1.50856333056274270183940849518568968, +0.930176161255920027820446456123840609), (+1.72775408632618254961291714046093944, +0.943182514831920264558693068704848552), (+1.82370546971306691306902061301314786, +0.136016361805138212301982325394929313), (+1.43242143348516761923998605261585291, +0.248006315968514495443443999726971566), (+1.90213818863653462495336954896987876, +0.655605234825933928730035202968965094), (+1.55917336568179486652086630431182193, +0.637321109993367604456340252983313778), (+1.81628207390151636046092698088154109, +0.662823634560574803642699333459807368E-1), (+1.83478597952382332066061992577649010, +0.389559070402592312709840132061667030E-1), (+1.34445365737553239939760533971959304, +0.177136250279948146919884387492181795), (+1.16281925467245336735885084831081218, +0.139256756663574590016030303344658278), (+1.75653148960229684968600437612783965, +0.175511247312353278175509513978404396), (+1.74168699688294942346625881789362742, +0.438568358392384039925391085316767644E-1), (+1.01289324947111784952228475990273735, +0.627892841217713118080474780677163925), (+1.26346316545759800639366952112264502, +0.292658291987384850709925270950327154), (+1.35000487102896364396696498041874232, +0.132342140828851019967429289279042353E-1), (+1.81784188974034499331744241216508405, +0.557280424139834319671961177332483131), (+1.49230580833846524010686223878331909, +0.777716860861286345796774404235875803E-1), (+1.76386414208241537638700373234858337, +0.723272522789892440179222922533240711E-1), (+1.08509066788729825439452168000536043, +0.261480923049645928151111808341024343), (+1.95194394617757431178271135170331920, +0.434205393924352167736457508433647748E-1), (+1.53482989673308215294724172941289298, +0.105564837720840097066602572444126979), (+1.16734630722756455781381221487123234, +0.466048481228357351563036314160473951E-1), (+1.82430194787991333930224422338699931, +0.305846174309625434611944660724669917), (+1.26620120904286866685875290218819375, +0.167125202727877562125100397492516402), (+1.25275225365333567781738640936307880, +0.226952640602119251177877030036261428), (+1.84004373035919884481946578247862151, +0.571437394605943447213693218224257251), (+1.29249716332492968963847717936508610, +0.873142397178069817807434344425935668), (+1.30566562791147704275480409082749083, +0.285896345120405109487323564859928474), (+1.62083553112248432046239187493627671, +0.260363643052242123445499144710420697), (+1.77122678402928695196609197498449339, +0.454577109765365812458160591704535473), (+1.59120285149139535634027393884900017, +0.560880820044898316627084226528203404), (+1.42229203944937932375503214579705362, +0.551301078498796275229619889198320433), (+1.12339893315633639010253011357083576, +0.361544491654475824154293878414562587), (+1.95261114856995974224055171448184082, +0.892641203569470396433622820596484056), (+1.48997129682170107423350469430145518, +0.118536504163493714574902979393826979), (+1.06309323640578663716091253945250889, +0.401003812206982159865321762959666164), (+1.58777317917832956793792761037604675, +0.516891337691005159122154856829363139E-2), (+1.67187703878482240368098047229652357, +0.320203028943445043020968702993708840), (+1.44291655253311922923397416712275117, +0.986421776275425495682480968364205180), (+1.16229543351088150799922590781818858, +0.508111155076594839741213101252983358), (+1.57449102109131370196950600606506646, +0.450290004712687306222887766945330142), (+1.05884903164673773547514437493448366, +0.460704368078858236646418641663964541), (+1.10811758390131541125976169890984777, +0.308054351073345830359097914289135887), (+1.45976711045529254992710120313959710, +0.417244023648317583812162303026318056), (+1.75045125052491737733849474780914473, +0.334086932162661587926586874496500312), (+1.46033767800707117897303095536962394, +0.293158418781800527269921161432074734), (+1.00701754190332179137389087018829089, +0.181529982067507391666485603222072653), (+1.81121640836737595396016833613485176, +0.213705703926339310848602912509331795), (+1.91278564465860781199141309976771078, +0.443848414328383696927854602628297533), (+1.27900451144033410742922115644561360, +0.755650801258025701327359112320189810), (+1.18234976230086094196398472805342106, +0.423294720126372111918063031642657000), (+1.98780576634985709505235317924576769, +0.138658670207160986909909092880895906), (+1.89357407389885864488498749224257364, +0.801469548792480561629985976109558319), (+1.80093090398915418064229294503074684, +0.107773883301437950084544583831054578), (+1.32184736069308462959312460959807683, +0.218156080500830372432395813734297640), (+1.93559243236326552467941033055822253, +0.796852232737082996391802134070073766), (+1.48447432637505048712549944717849288, +0.890621071276099104058809412270178936), (+1.78192635204178230582762339701095410, +0.367848519409956671372159448677863558), (+1.44720329672610431145076852048047549, +0.116666245724560564921598251616220380), (+1.27429270287238161632367961004708726, +0.415577182105866305153670287267165225), (+1.63388729596985306237831540295631301, +0.385933747190075290970860860710927824), (+1.34017429698923645024477434556087521, +0.505727852029639099286532760260893152), (+1.17918918576749732812142222309200601, +0.177816489328088293332252918674474648)

143

144adat = getFFTR(getFFTF(data)) / size(data)

145adat

146(+1.82231370172282715379347843777353032, +0.479319985359562037644675625706516829), (+1.41493592396799193856058127074933261, +0.473576289714192158514940754094658042), (+1.66105611361965690777644630311488014, +0.652644524216708183021132545839135950), (+1.60763623131394848243929539219549900, +0.389186328030505766367751700077181569), (+1.64851055474543256465450433918531854, +0.945519407184767414153305329649148925), (+1.65578586375138697947957236241602306, +0.638286580663069781694130296550668684), (+1.79767807691620557059751903500373127, +0.985448842126473519074604417986362551), (+1.65300963511916709889472037590966392, +0.869910452374011419109805922987057845), (+1.22401107450265263013360521519225297, +0.128555326616969922296642461374753022), (+1.32233395225786882572024053294206301, +0.745469771997526054846781814891025664E-1), (+1.34426574396003972236787789080097427, +0.415554412310981497734720305077877100), (+1.44533874642303220643104795199416399, +0.468207277947909545143598503132295210), (+1.33742142475898636457672912812581423, +0.104789292897832211892940326718658840), (+1.94649896557249045706609764999273871, +0.538098105153979912031677519813910298), (+1.77929978491664583340773979978065835, +0.275536984081543123498234379398853285), (+1.04681667288827246143390509047954699, +0.856682901910958717590796430168620919), (+1.74898029952667746337746154810723998, +0.312190210077089585285024565315594184), (+1.11756336400128078173252322365009594, +0.278376295712489247001997493023442435), (+1.15023602624737123979940779152525530, +0.760334420201905813271368563230007085E-1), (+1.57011955890421668934497681349133889, +0.111819928705830110495496434531311752), (+1.80065782668095342484095545796076956, +0.762101422882425273635706363015454354), (+1.75932061413274374039036550640453761, +0.146914757452949340336733659898118185), (+1.42577857834771432298016381950638840, +0.464732806317250818289100917249542011), (+1.83615579965475725878757935253353402, +0.680451557846367091582093793609847751), (+1.66842736701126422639723925135778167, +0.393865445643432834641829721899895821), (+1.13103238828833463641308392210450423, +0.942039645022798082802187852240070750), (+1.20065246456940301756227157558420329, +0.902651704360069768486023018013780679), (+1.95799779617491666076263711840533061, +0.400917662075120224735969899177071497), (+1.07567226096324946042681565407229944, +0.403512982849249495163323160759789948), (+1.59768616214492040436665210259331348, +0.562796519977505407516140843980803645), (+1.50856333056274270183940849518568968, +0.930176161255920027820446456123840513), (+1.72775408632618254961291714046093886, +0.943182514831920264558693068704848552), (+1.82370546971306691306902061301314728, +0.136016361805138212301982325394929289), (+1.43242143348516761923998605261585291, +0.248006315968514495443443999726971542), (+1.90213818863653462495336954896987857, +0.655605234825933928730035202968964997), (+1.55917336568179486652086630431182232, +0.637321109993367604456340252983313682), (+1.81628207390151636046092698088154128, +0.662823634560574803642699333459808210E-1), (+1.83478597952382332066061992577648972, +0.389559070402592312709840132061665586E-1), (+1.34445365737553239939760533971959323, +0.177136250279948146919884387492181674), (+1.16281925467245336735885084831081237, +0.139256756663574590016030303344658495), (+1.75653148960229684968600437612783965, +0.175511247312353278175509513978404444), (+1.74168699688294942346625881789362664, +0.438568358392384039925391085316766260E-1), (+1.01289324947111784952228475990273716, +0.627892841217713118080474780677164021), (+1.26346316545759800639366952112264425, +0.292658291987384850709925270950327394), (+1.35000487102896364396696498041874251, +0.132342140828851019967429289279043301E-1), (+1.81784188974034499331744241216508444, +0.557280424139834319671961177332483131), (+1.49230580833846524010686223878331890, +0.777716860861286345796774404235875803E-1), (+1.76386414208241537638700373234858375, +0.723272522789892440179222922533242155E-1), (+1.08509066788729825439452168000536081, +0.261480923049645928151111808341024584), (+1.95194394617757431178271135170331881, +0.434205393924352167736457508433646725E-1), (+1.53482989673308215294724172941289298, +0.105564837720840097066602572444127111), (+1.16734630722756455781381221487123214, +0.466048481228357351563036314160473891E-1), (+1.82430194787991333930224422338699854, +0.305846174309625434611944660724669869), (+1.26620120904286866685875290218819375, +0.167125202727877562125100397492516402), (+1.25275225365333567781738640936307899, +0.226952640602119251177877030036261549), (+1.84004373035919884481946578247862209, +0.571437394605943447213693218224257443), (+1.29249716332492968963847717936508571, +0.873142397178069817807434344425935668), (+1.30566562791147704275480409082749083, +0.285896345120405109487323564859928282), (+1.62083553112248432046239187493627651, +0.260363643052242123445499144710420505), (+1.77122678402928695196609197498449300, +0.454577109765365812458160591704535281), (+1.59120285149139535634027393884899998, +0.560880820044898316627084226528203404), (+1.42229203944937932375503214579705362, +0.551301078498796275229619889198320240), (+1.12339893315633639010253011357083653, +0.361544491654475824154293878414562539), (+1.95261114856995974224055171448184043, +0.892641203569470396433622820596484056), (+1.48997129682170107423350469430145403, +0.118536504163493714574902979393826775), (+1.06309323640578663716091253945250793, +0.401003812206982159865321762959666019), (+1.58777317917832956793792761037604656, +0.516891337691005159122154856829352080E-2), (+1.67187703878482240368098047229652319, +0.320203028943445043020968702993708551), (+1.44291655253311922923397416712275136, +0.986421776275425495682480968364204891), (+1.16229543351088150799922590781818915, +0.508111155076594839741213101252983551), (+1.57449102109131370196950600606506626, +0.450290004712687306222887766945330093), (+1.05884903164673773547514437493448404, +0.460704368078858236646418641663964541), (+1.10811758390131541125976169890984719, +0.308054351073345830359097914289135887), (+1.45976711045529254992710120313959710, +0.417244023648317583812162303026317863), (+1.75045125052491737733849474780914435, +0.334086932162661587926586874496500312), (+1.46033767800707117897303095536962452, +0.293158418781800527269921161432074830), (+1.00701754190332179137389087018829128, +0.181529982067507391666485603222072725), (+1.81121640836737595396016833613485157, +0.213705703926339310848602912509331795), (+1.91278564465860781199141309976771097, +0.443848414328383696927854602628297629), (+1.27900451144033410742922115644561360, +0.755650801258025701327359112320190099), (+1.18234976230086094196398472805342125, +0.423294720126372111918063031642656952), (+1.98780576634985709505235317924576750, +0.138658670207160986909909092880896002), (+1.89357407389885864488498749224257326, +0.801469548792480561629985976109558319), (+1.80093090398915418064229294503074645, +0.107773883301437950084544583831054421), (+1.32184736069308462959312460959807721, +0.218156080500830372432395813734297592), (+1.93559243236326552467941033055822253, +0.796852232737082996391802134070073862), (+1.48447432637505048712549944717849366, +0.890621071276099104058809412270178839), (+1.78192635204178230582762339701095429, +0.367848519409956671372159448677863607), (+1.44720329672610431145076852048047549, +0.116666245724560564921598251616220176), (+1.27429270287238161632367961004708707, +0.415577182105866305153670287267165033), (+1.63388729596985306237831540295631243, +0.385933747190075290970860860710927680), (+1.34017429698923645024477434556087541, +0.505727852029639099286532760260893152), (+1.17918918576749732812142222309200601, +0.177816489328088293332252918674474576)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+12

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.30641782, +1.95782495, +1.50993347, +1.88857889, +1.72326910, +1.18784714, +1.45328879, +1.05046654, +1.10339391, +1.91491222, +1.98627687, +1.55471063

160

161adat = getFFTR(getFFTF(data)) / size(data)

162adat

163+1.30641806, +1.95782483, +1.50993347, +1.88857901, +1.72326934, +1.18784714, +1.45328867, +1.05046654, +1.10339403, +1.91491222, +1.98627698, +1.55471075

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+22

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.3711140808159530, +1.3341361533943856, +1.8482842644732758, +1.2752465379027216, +1.4702576013016855, +1.6600373970796771, +1.2560675338054248, +1.8115292305719624, +1.2054723546902226, +1.4465844670201524, +1.0286834230439124, +1.0874935891081123, +1.4412706816891885, +1.0499557960892520, +1.9625982887004148, +1.7150703726464882, +1.3523562689814161, +1.7606339204241417, +1.5606888905870406, +1.8786892967080981, +1.2695468664692706, +1.4227248817299563

177

178adat = getFFTR(getFFTF(data)) / size(data)

179adat

180+1.3711140808159530, +1.3341361533943861, +1.8482842644732758, +1.2752465379027216, +1.4702576013016857, +1.6600373970796773, +1.2560675338054246, +1.8115292305719626, +1.2054723546902226, +1.4465844670201522, +1.0286834230439119, +1.0874935891081119, +1.4412706816891878, +1.0499557960892518, +1.9625982887004148, +1.7150703726464878, +1.3523562689814161, +1.7606339204241417, +1.5606888905870404, +1.8786892967080986, +1.2695468664692708, +1.4227248817299563

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+22

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.45745768748873494645044874230578050, +1.68867803375724969931963430947912502, +1.48111836357205061525305158227670376, +1.61229609273804216524238483231239673, +1.35815975662715948352648844953465179, +1.73920923426141672100939496781381966, +1.61662062192062542374805474382038666, +1.63709898987790466276811482646506644, +1.26255883532953489852170298639489460, +1.69004443267603504006028146988077187, +1.79014540790557623960734267890963634, +1.83214102226859560793376592510184399, +1.77204231992625888215003550231460007, +1.10356531446669234959916991300089376, +1.06636077731467303623945090085064512, +1.40826158882293127622064459857131740, +1.90510782733650232568604875334459895, +1.99330781636297232098157287596018643, +1.00666393115964229146868204985747783, +1.08587883321053292073725743612339778, +1.19070308960964055877116820524587351, +1.38411883141054988194552758892058918

194

195adat = getFFTR(getFFTF(data)) / size(data)

196adat

197+1.45745768748873494645044874230578108, +1.68867803375724969931963430947912540, +1.48111836357205061525305158227670318, +1.61229609273804216524238483231239673, +1.35815975662715948352648844953465237, +1.73920923426141672100939496781381966, +1.61662062192062542374805474382038608, +1.63709898987790466276811482646506625, +1.26255883532953489852170298639489537, +1.69004443267603504006028146988077226, +1.79014540790557623960734267890963519, +1.83214102226859560793376592510184360, +1.77204231992625888215003550231459910, +1.10356531446669234959916991300089279, +1.06636077731467303623945090085064589, +1.40826158882293127622064459857131779, +1.90510782733650232568604875334459837, +1.99330781636297232098157287596018604, +1.00666393115964229146868204985747841, +1.08587883321053292073725743612339798, +1.19070308960964055877116820524587294, +1.38411883141054988194552758892058880

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+79

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.18652236, +0.335667551), (+1.60596907, +0.208480716), (+1.39937866, +0.591102660), (+1.97564244, +0.667577326), (+1.51561928, +0.280087113), (+1.02986884, +0.339221358), (+1.65773487, +0.631604850), (+1.49114728, +0.216216207), (+1.53859854, +0.255955338), (+1.79103708, +0.583260655E-1), (+1.23480248, +0.231236041), (+1.09297419, +0.965113163), (+1.90431535, +0.177382708), (+1.94854188, +0.596939921), (+1.26264358, +0.476027191), (+1.66171861, +0.363429010), (+1.11706376, +0.575339198E-1), (+1.18666339, +0.681459427), (+1.25039530, +0.186652899), (+1.33399940, +0.246316612), (+1.96452868, +0.880710840), (+1.86364150, +0.575505137), (+1.31610656, +0.550473988), (+1.17184305, +0.172507167E-1), (+1.37722588, +0.240473568), (+1.09804261, +0.231700599), (+1.42428756, +0.102681398), (+1.47725201, +0.440487266), (+1.94438791, +0.463160455), (+1.30923176, +0.749903977), (+1.96923864, +0.515740097), (+1.75111341, +0.715051651), (+1.18278396, +0.265759528), (+1.24574482, +0.697255850), (+1.54238498, +0.334058106), (+1.08869195, +0.883319080), (+1.73116827, +0.135153532E-1), (+1.56972551, +0.641957223), (+1.02269828, +0.856146514), (+1.79325235, +0.714950502), (+1.18585694, +0.163757801E-1), (+1.17374182, +0.888620675), (+1.20928884, +0.608717263), (+1.47736001, +0.583308458), (+1.56328511, +0.692508042), (+1.50782096, +0.993432403), (+1.64942968, +0.833223283), (+1.25702465, +0.337863564), (+1.38352597, +0.922632813E-1), (+1.20978022, +0.794685662), (+1.38643885, +0.165786564), (+1.90605164, +0.868437469), (+1.31569338, +0.712417245), (+1.84370375, +0.216061890), (+1.45148826, +0.297624886), (+1.88827837, +0.618851185E-1), (+1.40621853, +0.987394631), (+1.40380454, +0.403415680), (+1.05046117, +0.196591973), (+1.34829307, +0.338889897), (+1.40814805, +0.248746037), (+1.86703241, +0.750361681E-1), (+1.11402273, +0.943481326), (+1.50874400, +0.715618789), (+1.09599924, +0.144568145), (+1.71414149, +0.148386180), (+1.02757943, +0.345946729), (+1.13576102, +0.802006006), (+1.77351427, +0.202840209), (+1.02765357, +0.932662427), (+1.84095383, +0.823727369), (+1.27116418, +0.957520008E-1), (+1.71986079, +0.384081781), (+1.62177920, +0.751551986), (+1.74294627, +0.395195127), (+1.64850283, +0.969821453), (+1.01777470, +0.201921582), (+1.55093837, +0.187738657), (+1.11978245, +0.475442231)

211

212adat = getFFTR(getFFTF(data)) / size(data)

213adat

214(+1.18652606, +0.335668653), (+1.60596848, +0.208480611), (+1.39937806, +0.591102481), (+1.97564232, +0.667577326), (+1.51561880, +0.280087143), (+1.02986825, +0.339221239), (+1.65773416, +0.631604552), (+1.49114680, +0.216215909), (+1.53859842, +0.255955309), (+1.79103708, +0.583260693E-1), (+1.23480248, +0.231236130), (+1.09297395, +0.965113282), (+1.90431499, +0.177382872), (+1.94854176, +0.596939981), (+1.26264298, +0.476027101), (+1.66171849, +0.363428950), (+1.11706340, +0.575339869E-1), (+1.18666303, +0.681459367), (+1.25039542, +0.186652914), (+1.33399987, +0.246316627), (+1.96452868, +0.880710721), (+1.86364126, +0.575505197), (+1.31610668, +0.550474167), (+1.17184269, +0.172507372E-1), (+1.37722552, +0.240473583), (+1.09804261, +0.231700674), (+1.42428744, +0.102681436), (+1.47725189, +0.440487385), (+1.94438803, +0.463160366), (+1.30923152, +0.749903977), (+1.96923900, +0.515740275), (+1.75111330, +0.715051651), (+1.18278432, +0.265759498), (+1.24574506, +0.697256029), (+1.54238486, +0.334058315), (+1.08869219, +0.883319139), (+1.73116839, +0.135154966E-1), (+1.56972599, +0.641957283), (+1.02269876, +0.856146693), (+1.79325283, +0.714950562), (+1.18585742, +0.163759887E-1), (+1.17374229, +0.888620913), (+1.20928931, +0.608717501), (+1.47736013, +0.583308339), (+1.56328535, +0.692508042), (+1.50782084, +0.993432462), (+1.64942992, +0.833223343), (+1.25702488, +0.337863564), (+1.38352585, +0.922634304E-1), (+1.20978093, +0.794685602), (+1.38643849, +0.165786594), (+1.90605187, +0.868437588), (+1.31569338, +0.712417245), (+1.84370363, +0.216061935), (+1.45148826, +0.297624916), (+1.88827825, +0.618850626E-1), (+1.40621817, +0.987394571), (+1.40380454, +0.403415859), (+1.05046105, +0.196591914), (+1.34829307, +0.338889688), (+1.40814829, +0.248746008), (+1.86703265, +0.750362128E-1), (+1.11402237, +0.943481147), (+1.50874352, +0.715618789), (+1.09599936, +0.144568145), (+1.71414065, +0.148386195), (+1.02757919, +0.345946729), (+1.13576066, +0.802005887), (+1.77351403, +0.202840388), (+1.02765357, +0.932662368), (+1.84095383, +0.823727548), (+1.27116370, +0.957517847E-1), (+1.71986020, +0.384081721), (+1.62177861, +0.751551747), (+1.74294579, +0.395195156), (+1.64850235, +0.969821393), (+1.01777446, +0.201921701), (+1.55093777, +0.187738329), (+1.11978173, +0.475442052)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+7

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.2926949151372984, +0.55345117904133423), (+1.7096711563232190, +0.12526890534049773), (+1.7031589126575994, +0.10971944981002535), (+1.9581228164159958, +0.97629337644135294), (+1.4859158922761662, +0.80369592954807734), (+1.3021301985341933, +0.86359014979141380), (+1.0427096499851234, +0.15206680694632158E-1)

228

229adat = getFFTR(getFFTF(data)) / size(data)

230adat

231(+1.2926949151372986, +0.55345117904133423), (+1.7096711563232192, +0.12526890534049787), (+1.7031589126575997, +0.10971944981002535), (+1.9581228164159956, +0.97629337644135283), (+1.4859158922761657, +0.80369592954807723), (+1.3021301985341938, +0.86359014979141391), (+1.0427096499851236, +0.15206680694632253E-1)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+61

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.08138710007312253734433302999087747, +0.472302702616368840808731485680370500), (+1.32473775873777541030042541685073540, +0.870644503802430491659395394331624902), (+1.58218169520311234386256276366778090, +0.202251008254034568999802723168560599), (+1.73815782641793991520998179631740971, +0.960728717645061887811595627728785436), (+1.90818551917700843520527950227348684, +0.652418306075969124658942916445884685), (+1.36164779571441473708371372108362291, +0.877771557206642644271372139463633557), (+1.62824495365985031150974306035742576, +0.845486132827415578274338444572866189), (+1.16642264223963938725451062112965242, +0.136990231368434232587278521448918381), (+1.06794224151936234185762635338805963, +0.892025135456637945915989172829453791), (+1.49672265165132236373071373980896378, +0.265739709521734440372392274348275772E-1), (+1.32303000638098559228863233214867366, +0.798690392406616244378628108296751114), (+1.92415123571475139326641623672558171, +0.252530073378481254202761716679617883), (+1.58104919645037198092207985539999801, +0.247394905912438492506240774053358608E-1), (+1.41992436434613939148391554694661161, +0.942579085005823016006840768304655142), (+1.20808956086770677660338458337373702, +0.504945201201792336627833714200604174), (+1.51739344074208821988839142864839800, +0.641107611911478991646791877678920643), (+1.91290676967259419086475946596471749, +0.169137598409827365345796442235029202), (+1.76273683343439710908686602193680829, +0.243551853208404394492558281136955767), (+1.71979348374299669468995160234877106, +0.933467063683304299590445821678829457), (+1.41695947062102926517710767491434405, +0.583817716870223361503435323266774083), (+1.19892851708330582518812882107614686, +0.752805624252915192545103176818733194), (+1.54945623051934744462989536065268324, +0.620900504541050249951659747964748301), (+1.10266549403289675837167371097955513, +0.611974368623283077994943979658228460), (+1.54379067127837096584445429695968450, +0.992125559976176785935018984321994260), (+1.35834895669194598896559184743546068, +0.758552810159474606398712307117893692), (+1.30035525641652418793257846677850561, +0.399111614733138874806147211298161194), (+1.18608033397344309123916995806773421, +0.561413264803294157608108646855566560), (+1.57115262234531123861848052814414924, +0.386224526534296588742432465432012947E-1), (+1.55446694001051077838469350099320179, +0.653924581863955559220188663350254825), (+1.24457642459288173417085691305183473, +0.466176386398036939192538671752300766), (+1.73478942607349501524843385314319544, +0.684464512382477131425706233562943314), (+1.29694359045608754768136698880100888, +0.598591530580045245392052325284343340), (+1.39695878725523807374127910440360916, +0.778057129220296584826724597485645506), (+1.65043618526446057493121788272975047, +0.179408267188458500458693584259576934E-1), (+1.49540279118933761463518807279096386, +0.875139797463895255047025429187880257), (+1.29276992629713102661652661959973979, +0.268513073485503143834461572781246743), (+1.42162384360287131721508924158129157, +0.334588357240231045797800467254351814), (+1.96097527586760210134132925387179283, +0.544755016211462732583736884395768560), (+1.21258208908074175229320461043585268, +0.572766604846131537476350531392461615), (+1.07775205834166779251843406267404217, +0.520955673335529744034020254768089922), (+1.68585489398171041198830153334838400, +0.762317132520687015143780957826073438), (+1.39401243527600397113035887083150224, +0.116984077078094998866105250767568800), (+1.81656785710026740499159897238183680, +0.647484386346195939936795621607782260E-1), (+1.39419888041320523717192573220003565, +0.540052590754736530478072985462567525), (+1.48760146040419961106883678128703453, +0.276830751507725601900735589193824134), (+1.34937627273558002607177013267663937, +0.171882931874679169215576614119513697), (+1.35513004275343405468498231622662822, +0.967895717967640771379558757283709231), (+1.39581867681392080644620264063273957, +0.983092222499558102873743112056336522), (+1.44197726543678397381897725030653099, +0.395023813928007489629838355038970934), (+1.97453222424511897074608561649862790, +0.445094018047574500131823925307223351), (+1.98249528887070300810570975896666667, +0.859930874090292767243408564724207132), (+1.51320196298323820201324591490945439, +0.828453648274012457798103812988925393), (+1.13777107569656585752303205981482514, +0.766370931248043732423149436173115669), (+1.99454803536734175276037941557639939, +0.968431054099141132054417374962538807), (+1.22934895247580394067543122183470700, +0.314873673947637464456209963653567815), (+1.37926819460352243404453278276438570, +0.204157011148186088992796533516362324), (+1.23835564607423740866831661757890871, +0.273251245338954084212232085934175830), (+1.46647978707221900049308544743669933, +0.682643834917672507323922362635594614), (+1.46129072793105669376324452815967364, +0.658727177633478324203036515569807414), (+1.66635902466322716005031927358606139, +0.165038108783262911413796161363784338), (+1.17878834167535728012236728409378946, +0.592892711193787924859643093659891592E-1)

245

246adat = getFFTR(getFFTF(data)) / size(data)

247adat

248(+1.08138710007312253734433302999087862, +0.472302702616368840808731485680370837), (+1.32473775873777541030042541685073540, +0.870644503802430491659395394331624902), (+1.58218169520311234386256276366778090, +0.202251008254034568999802723168560719), (+1.73815782641793991520998179631740990, +0.960728717645061887811595627728785340), (+1.90818551917700843520527950227348665, +0.652418306075969124658942916445884588), (+1.36164779571441473708371372108362233, +0.877771557206642644271372139463633557), (+1.62824495365985031150974306035742595, +0.845486132827415578274338444572866093), (+1.16642264223963938725451062112965319, +0.136990231368434232587278521448918573), (+1.06794224151936234185762635338806040, +0.892025135456637945915989172829454080), (+1.49672265165132236373071373980896359, +0.265739709521734440372392274348275231E-1), (+1.32303000638098559228863233214867347, +0.798690392406616244378628108296750922), (+1.92415123571475139326641623672558133, +0.252530073378481254202761716679617691), (+1.58104919645037198092207985539999840, +0.247394905912438492506240774053357555E-1), (+1.41992436434613939148391554694661199, +0.942579085005823016006840768304655623), (+1.20808956086770677660338458337373721, +0.504945201201792336627833714200604174), (+1.51739344074208821988839142864839800, +0.641107611911478991646791877678920932), (+1.91290676967259419086475946596471749, +0.169137598409827365345796442235029299), (+1.76273683343439710908686602193680829, +0.243551853208404394492558281136955767), (+1.71979348374299669468995160234877106, +0.933467063683304299590445821678829457), (+1.41695947062102926517710767491434347, +0.583817716870223361503435323266774083), (+1.19892851708330582518812882107614647, +0.752805624252915192545103176818733387), (+1.54945623051934744462989536065268324, +0.620900504541050249951659747964748205), (+1.10266549403289675837167371097955552, +0.611974368623283077994943979658228268), (+1.54379067127837096584445429695968450, +0.992125559976176785935018984321993874), (+1.35834895669194598896559184743546106, +0.758552810159474606398712307117893788), (+1.30035525641652418793257846677850580, +0.399111614733138874806147211298161098), (+1.18608033397344309123916995806773440, +0.561413264803294157608108646855566656), (+1.57115262234531123861848052814414924, +0.386224526534296588742432465432012345E-1), (+1.55446694001051077838469350099320179, +0.653924581863955559220188663350254729), (+1.24457642459288173417085691305183416, +0.466176386398036939192538671752300573), (+1.73478942607349501524843385314319582, +0.684464512382477131425706233562943217), (+1.29694359045608754768136698880100946, +0.598591530580045245392052325284343244), (+1.39695878725523807374127910440360877, +0.778057129220296584826724597485645217), (+1.65043618526446057493121788272975067, +0.179408267188458500458693584259577446E-1), (+1.49540279118933761463518807279096406, +0.875139797463895255047025429187880353), (+1.29276992629713102661652661959974018, +0.268513073485503143834461572781247128), (+1.42162384360287131721508924158129176, +0.334588357240231045797800467254351910), (+1.96097527586760210134132925387179302, +0.544755016211462732583736884395768849), (+1.21258208908074175229320461043585268, +0.572766604846131537476350531392461423), (+1.07775205834166779251843406267404256, +0.520955673335529744034020254768089633), (+1.68585489398171041198830153334838380, +0.762317132520687015143780957826073149), (+1.39401243527600397113035887083150166, +0.116984077078094998866105250767568872), (+1.81656785710026740499159897238183622, +0.647484386346195939936795621607781658E-1), (+1.39419888041320523717192573220003565, +0.540052590754736530478072985462567428), (+1.48760146040419961106883678128703453, +0.276830751507725601900735589193824038), (+1.34937627273558002607177013267663975, +0.171882931874679169215576614119513721), (+1.35513004275343405468498231622662841, +0.967895717967640771379558757283709231), (+1.39581867681392080644620264063273957, +0.983092222499558102873743112056336619), (+1.44197726543678397381897725030653137, +0.395023813928007489629838355038971464), (+1.97453222424511897074608561649862809, +0.445094018047574500131823925307223399), (+1.98249528887070300810570975896666629, +0.859930874090292767243408564724207132), (+1.51320196298323820201324591490945439, +0.828453648274012457798103812988925296), (+1.13777107569656585752303205981482514, +0.766370931248043732423149436173115572), (+1.99454803536734175276037941557639997, +0.968431054099141132054417374962539096), (+1.22934895247580394067543122183470758, +0.314873673947637464456209963653568056), (+1.37926819460352243404453278276438570, +0.204157011148186088992796533516362107), (+1.23835564607423740866831661757890832, +0.273251245338954084212232085934175926), (+1.46647978707221900049308544743669914, +0.682643834917672507323922362635594711), (+1.46129072793105669376324452815967383, +0.658727177633478324203036515569807510), (+1.66635902466322716005031927358606139, +0.165038108783262911413796161363784434), (+1.17878834167535728012236728409378946, +0.592892711193787924859643093659890810E-1)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+55

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.46100807, +1.69561017, +1.34868586, +1.89438426, +1.33640945, +1.73125160, +1.98474717, +1.49396658, +1.76124549, +1.50476575, +1.47312415, +1.93914282, +1.21691704, +1.87398267, +1.25835705, +1.88198686, +1.12392271, +1.07816052, +1.44031811, +1.34539485, +1.95403957, +1.09443331, +1.74434996, +1.70177698, +1.65392208, +1.13911235, +1.34269738, +1.97176170, +1.38721895, +1.99853373, +1.35922992, +1.74625945, +1.16378796, +1.93150938, +1.93103099, +1.11196136, +1.93095648, +1.78838348, +1.71142316, +1.15739608, +1.26355290, +1.80886173, +1.27374315, +1.32586658, +1.95638967, +1.37627435, +1.43096519, +1.51595712, +1.77810597, +1.46602309, +1.26818776, +1.49225855, +1.05239189, +1.39499128, +1.86386251

262

263adat = getFFTR(getFFTF(data)) / size(data)

264adat

265+1.46100771, +1.69561017, +1.34868598, +1.89438426, +1.33640909, +1.73125172, +1.98474729, +1.49396682, +1.76124561, +1.50476635, +1.47312367, +1.93914294, +1.21691728, +1.87398267, +1.25835669, +1.88198674, +1.12392318, +1.07816052, +1.44031811, +1.34539509, +1.95403910, +1.09443307, +1.74434996, +1.70177710, +1.65392184, +1.13911259, +1.34269810, +1.97176206, +1.38721943, +1.99853456, +1.35923004, +1.74626005, +1.16378868, +1.93150985, +1.93103194, +1.11196089, +1.93095624, +1.78838348, +1.71142316, +1.15739584, +1.26355267, +1.80886221, +1.27374327, +1.32586670, +1.95639002, +1.37627399, +1.43096530, +1.51595736, +1.77810609, +1.46602273, +1.26818788, +1.49225879, +1.05239213, +1.39499140, +1.86386299

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+100

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.1798704968904334, +1.5297083888597447, +1.2515364357694581, +1.8646861125869589, +1.0779752479025508, +1.9987129843814002, +1.4101737842280686, +1.1498352655553741, +1.2729574778144983, +1.0850434784527376, +1.1439093933807480, +1.9214244446631930, +1.0707481699448489, +1.3772745849924883, +1.3760493741852338, +1.1440078735201848, +1.2983953849509158, +1.2755290622289546, +1.3962776617775703, +1.1301423594573849, +1.8185682199537800, +1.5511344477354647, +1.2567792081636160, +1.7663891961735281, +1.0477652638571491, +1.4626501093461202, +1.7322527467546633, +1.9654361176196669, +1.4419316442346171, +1.8828280248979894, +1.1158634986084257, +1.6479906784797276, +1.3451039964671923, +1.5222917841291739, +1.6553486642663477, +1.6539354531610215, +1.5004533076848676, +1.5441164290144009, +1.0162651278207340, +1.6358680177889018, +1.8782447378858718, +1.2040534328394341, +1.0784917863964507, +1.4935007434308782, +1.9665468194403863, +1.7751225689461032, +1.2292953082239633, +1.2349330884488694, +1.2717952166574622, +1.1216906612810265, +1.4863022619983040, +1.8772104542022623, +1.9661101743305633, +1.1239811667215691, +1.3243787972858536, +1.0405905217254914, +1.6213484869723036, +1.3114589745243992, +1.0632365833671908, +1.6570563451051468, +1.1113462072218234, +1.6798631209229633, +1.7648680501374954, +1.9663925686732355, +1.8304635104212599, +1.6300028238071245, +1.7191471821175426, +1.0426857919384942, +1.3303344326534070, +1.5170148510760053, +1.9502065215129880, +1.5449693949994485, +1.1016821266334875, +1.4549958053532133, +1.7216430279216579, +1.9427710442037767, +1.1923813213818857, +1.7001058099091535, +1.3973096879131082, +1.4156912006976110, +1.6571572906595837, +1.6735659697886334, +1.0368978723336149, +1.9559609003878857, +1.9402372499285623, +1.8402405335834688, +1.4624456131198524, +1.5086478377815935, +1.0988682168381105, +1.3579617158646626, +1.7343575388327981, +1.7987133366592603, +1.5425139427488221, +1.2598285363757489, +1.9230042890480847, +1.2167879746443133, +1.4178766608157127, +1.7744118046774031, +1.9196819834693453, +1.6437852315359145

279

280adat = getFFTR(getFFTF(data)) / size(data)

281adat

282+1.1798704968904346, +1.5297083888597449, +1.2515364357694587, +1.8646861125869594, +1.0779752479025513, +1.9987129843814002, +1.4101737842280693, +1.1498352655553743, +1.2729574778144988, +1.0850434784527376, +1.1439093933807489, +1.9214244446631932, +1.0707481699448493, +1.3772745849924883, +1.3760493741852347, +1.1440078735201853, +1.2983953849509160, +1.2755290622289548, +1.3962776617775714, +1.1301423594573849, +1.8185682199537805, +1.5511344477354652, +1.2567792081636164, +1.7663891961735283, +1.0477652638571497, +1.4626501093461197, +1.7322527467546638, +1.9654361176196671, +1.4419316442346173, +1.8828280248979894, +1.1158634986084259, +1.6479906784797271, +1.3451039964671923, +1.5222917841291734, +1.6553486642663477, +1.6539354531610218, +1.5004533076848676, +1.5441164290144007, +1.0162651278207342, +1.6358680177889016, +1.8782447378858727, +1.2040534328394341, +1.0784917863964512, +1.4935007434308787, +1.9665468194403866, +1.7751225689461032, +1.2292953082239639, +1.2349330884488694, +1.2717952166574624, +1.1216906612810262, +1.4863022619983044, +1.8772104542022621, +1.9661101743305636, +1.1239811667215687, +1.3243787972858541, +1.0405905217254916, +1.6213484869723038, +1.3114589745243990, +1.0632365833671913, +1.6570563451051463, +1.1113462072218241, +1.6798631209229631, +1.7648680501374958, +1.9663925686732362, +1.8304635104212599, +1.6300028238071242, +1.7191471821175432, +1.0426857919384940, +1.3303344326534075, +1.5170148510760051, +1.9502065215129882, +1.5449693949994483, +1.1016821266334875, +1.4549958053532128, +1.7216430279216581, +1.9427710442037767, +1.1923813213818859, +1.7001058099091535, +1.3973096879131088, +1.4156912006976108, +1.6571572906595842, +1.6735659697886336, +1.0368978723336155, +1.9559609003878859, +1.9402372499285627, +1.8402405335834684, +1.4624456131198531, +1.5086478377815933, +1.0988682168381105, +1.3579617158646624, +1.7343575388327983, +1.7987133366592598, +1.5425139427488221, +1.2598285363757487, +1.9230042890480847, +1.2167879746443135, +1.4178766608157130, +1.7744118046774031, +1.9196819834693457, +1.6437852315359145

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+23

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.75269534017236908258619366197428165, +1.40398405200294367750727840545676815, +1.71694498808949204014069250810317318, +1.07420428426206914428272838569117621, +1.18678797588663123824994255014783492, +1.40965630509263652627749568901403286, +1.79962137128096602772235806592026465, +1.59645982330255231320554771980266190, +1.66351410370055725528797711233959594, +1.34211555157599656540085186690011146, +1.35573081325646883883638526033494127, +1.04396802031398893902561531276961857, +1.03011760626807299822411843186237478, +1.83093517212500197383050696439971878, +1.86011409573233491276279137472384489, +1.16058611929381090983884727410353053, +1.73997679073899846838579493455697569, +1.18163959001793766772124688109063394, +1.67585714541533641544765163575339519, +1.76745004534939664379309839490724668, +1.90513776784974876313871306548452225, +1.94051002759380816393386881860760827, +1.93628058749259853761517658777125217

296

297adat = getFFTR(getFFTF(data)) / size(data)

298adat

299+1.75269534017236908258619366197428165, +1.40398405200294367750727840545676835, +1.71694498808949204014069250810317299, +1.07420428426206914428272838569117640, +1.18678797588663123824994255014783550, +1.40965630509263652627749568901403266, +1.79962137128096602772235806592026465, +1.59645982330255231320554771980266171, +1.66351410370055725528797711233959574, +1.34211555157599656540085186690011165, +1.35573081325646883883638526033494127, +1.04396802031398893902561531276961780, +1.03011760626807299822411843186237401, +1.83093517212500197383050696439971840, +1.86011409573233491276279137472384470, +1.16058611929381090983884727410353091, +1.73997679073899846838579493455697530, +1.18163959001793766772124688109063471, +1.67585714541533641544765163575339481, +1.76745004534939664379309839490724706, +1.90513776784974876313871306548452225, +1.94051002759380816393386881860760808, +1.93628058749259853761517658777125217

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+35

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.79976141, +0.793169796), (+1.96687150, +0.993027627), (+1.71096063, +0.874251008), (+1.93347645, +0.973389030), (+1.92823291, +0.939884961), (+1.49353075, +0.341408730), (+1.20760930, +0.637209713), (+1.41052210, +0.473042607), (+1.97220421, +0.189318299), (+1.65199661, +0.816959739), (+1.23959446, +0.679441988), (+1.53170753, +0.300150514E-1), (+1.55864167, +0.767619848), (+1.12164140, +0.405553460), (+1.78415060, +0.559771180), (+1.33827305, +0.224001408E-1), (+1.04094648, +0.158222258), (+1.02938652, +0.559375525), (+1.71102691, +0.365551174), (+1.61725521, +0.824141622), (+1.77847981, +0.793800175), (+1.51901722, +0.822975874), (+1.16770434, +0.488265693), (+1.50389051, +0.731972218), (+1.23279715, +0.833114028), (+1.44793332, +0.567430794), (+1.96491480, +0.855478764), (+1.76363719, +0.668047428), (+1.68718958, +0.486312330), (+1.96335411, +0.160956979), (+1.15367126, +0.682489693), (+1.65179753, +0.345039308), (+1.48316884, +0.396988153), (+1.03768682, +0.741240680), (+1.06656313, +0.207705319)

313

314adat = getFFTR(getFFTF(data)) / size(data)

315adat

316(+1.79976082, +0.793169737), (+1.96687138, +0.993027687), (+1.71096063, +0.874250948), (+1.93347609, +0.973388910), (+1.92823267, +0.939884841), (+1.49353039, +0.341408640), (+1.20760918, +0.637209654), (+1.41052186, +0.473042578), (+1.97220433, +0.189318419), (+1.65199673, +0.816959858), (+1.23959458, +0.679442108), (+1.53170753, +0.300150458E-1), (+1.55864167, +0.767619789), (+1.12164128, +0.405553639), (+1.78415036, +0.559771061), (+1.33827317, +0.224002302E-1), (+1.04094648, +0.158222198), (+1.02938652, +0.559375644), (+1.71102703, +0.365551084), (+1.61725533, +0.824141562), (+1.77848005, +0.793800294), (+1.51901698, +0.822975934), (+1.16770458, +0.488265783), (+1.50389040, +0.731972277), (+1.23279727, +0.833113968), (+1.44793355, +0.567430794), (+1.96491480, +0.855478764), (+1.76363742, +0.668047488), (+1.68718934, +0.486312330), (+1.96335411, +0.160956979), (+1.15367115, +0.682489693), (+1.65179765, +0.345039248), (+1.48316896, +0.396988183), (+1.03768682, +0.741240799), (+1.06656325, +0.207705304)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+100

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.0080107981055464, +0.14438379385654687), (+1.9632219972040463, +0.66952070886690485), (+1.5320248560781402, +0.22718425793047936), (+1.5425098607231178, +0.81763518110144529), (+1.1517771007545994, +0.91667213467784603), (+1.3338344687124719, +0.87695051016980075), (+1.0455702789465349, +0.59889980413285948), (+1.0751701424924480, +0.90481680894806127E-1), (+1.4180592897084086, +0.81228719050206732), (+1.9730005199149692, +0.33764045015741939), (+1.6463823927935315, +0.90605676056834661), (+1.7756910794278522, +0.19178295921188593), (+1.3377891993743611, +0.72122586642478637), (+1.7586747820796877, +0.11287052129490560), (+1.1757947363805485, +0.52002305059844589), (+1.4284077141082392, +0.21907179828453915E-1), (+1.1695641483306138, +0.50587355496685160), (+1.2029002728922145, +0.24604775149645763E-1), (+1.9365667304955996, +0.54459913168484886), (+1.6397497756764259, +0.52152441100350067), (+1.0078986836966095, +0.63142625062857560), (+1.2287648176090582, +0.84131615186808295), (+1.7797013668360240, +0.35407812029987062), (+1.8921837854167400, +0.49746608304265583), (+1.2897281512400416, +0.97110701246788245), (+1.8764421645096272, +0.17228404846212686), (+1.6078107745747516, +0.55660021120844583), (+1.4060452691370204, +0.53177038955253497E-1), (+1.6552163465305096, +0.63331670014495611), (+1.1460086997933998, +0.87814333103467768), (+1.0260948924019293, +0.66881381077375412), (+1.7012055951042715, +0.26667261709417178), (+1.8923927658014588, +0.31717912114022617), (+1.3727850976582707, +0.42424085344796458), (+1.4000439832602827, +0.31184658609421989), (+1.3772225360426082, +0.27135647004841923), (+1.2318947235488600, +0.84807393436608935), (+1.5637677080499583, +0.69469488517881217), (+1.3248247963268298, +0.51563226665480855), (+1.5729581970505351, +0.24637965857407662), (+1.8807971304469970, +0.88402269583261806), (+1.9289230365903673, +0.64436770748640970), (+1.8271556217786680, +0.13135816166151593), (+1.3084983882339198, +0.40354265556821556), (+1.4450510998600090, +0.90259267055751058), (+1.1656670770834594, +0.59834502785422672), (+1.7182974390169179, +0.75198192081690685), (+1.2428692397023229, +0.68827546497277203), (+1.6186341334869851, +0.27231137910425229), (+1.6818381418181256, +0.21403015171845774), (+1.4691365405348322, +0.96979202860041702), (+1.2221591063439998, +0.96939943894895086), (+1.7508723045936800, +0.56083707950720307), (+1.6690012525006304, +0.96061332994512449), (+1.0166702272730799, +0.59594934657866250), (+1.5067215803264933, +0.24800295714225606), (+1.3663910567400794, +0.97368883700824971E-1), (+1.5852428032410828, +0.96130851128540840), (+1.5609019618904942, +0.91137359311546107), (+1.3792594695687659, +0.74481876490214094), (+1.2514795539868666, +0.84691912289101501), (+1.1022807673095234, +0.46680687084012540), (+1.3934756956231509, +0.37802170249925093), (+1.8241008605569031, +0.90497508255151682), (+1.9144322649246166, +0.35036322329297387), (+1.4312379720427693, +0.23407895098496589), (+1.7610784913184181, +0.40341962431827783), (+1.7201686812950721, +0.27445650496033092), (+1.0522491226158741, +0.80463519130067651), (+1.0514796015585537, +0.29822563362202614), (+1.4055752846985832, +0.93925558785480712), (+1.2200190631381189, +0.41078304070689686), (+1.4560401646435657, +0.32853907150362316), (+1.6305542385003218, +0.15905921221338837), (+1.5462568328612680, +0.88354581231503382), (+1.9900851272705622, +0.77404050578500416), (+1.9871371328379759, +0.17959414774536764), (+1.3510740563316754, +0.30157316579423654), (+1.1760603952159079, +0.49672733989949991), (+1.9185193793446085, +0.51022413868463645), (+1.1312747435079102, +0.98367514988670202), (+1.8717129325336090, +0.81674607484968043), (+1.6013040243588819, +0.48262781469864502), (+1.2096430800529776, +0.36602153538268900E-1), (+1.2447895299583502, +0.50882825196873371), (+1.5598823719846175, +0.13124939306271466), (+1.7163431602570647, +0.21825993049531256E-2), (+1.4831857845941541, +0.60496759810890910), (+1.0421260143198703, +0.68024549561580105E-1), (+1.4449312648755877, +0.67932106252544511), (+1.9382557492664985, +0.17605317024408595), (+1.1623336639826007, +0.75170452395731668), (+1.9819955995700906, +0.32803412353810613), (+1.2023115326307692, +0.63729562925068928), (+1.7372227278984045, +0.54003242680600572), (+1.4493126888032011, +0.82983957317760448), (+1.1516277853208154, +0.83702791518728359), (+1.8390375166482815, +0.64092342389802748), (+1.2268684152331879, +0.66498418400555370), (+1.1870504687916992, +0.63268135776043721)

330

331adat = getFFTR(getFFTF(data)) / size(data)

332adat

333(+1.0080107981055464, +0.14438379385654698), (+1.9632219972040463, +0.66952070886690507), (+1.5320248560781402, +0.22718425793047950), (+1.5425098607231182, +0.81763518110144517), (+1.1517771007545996, +0.91667213467784603), (+1.3338344687124715, +0.87695051016980075), (+1.0455702789465346, +0.59889980413285926), (+1.0751701424924476, +0.90481680894805960E-1), (+1.4180592897084079, +0.81228719050206732), (+1.9730005199149689, +0.33764045015741934), (+1.6463823927935317, +0.90605676056834683), (+1.7756910794278522, +0.19178295921188607), (+1.3377891993743602, +0.72122586642478637), (+1.7586747820796875, +0.11287052129490545), (+1.1757947363805488, +0.52002305059844600), (+1.4284077141082394, +0.21907179828454061E-1), (+1.1695641483306138, +0.50587355496685138), (+1.2029002728922142, +0.24604775149645697E-1), (+1.9365667304955998, +0.54459913168484886), (+1.6397497756764261, +0.52152441100350078), (+1.0078986836966093, +0.63142625062857560), (+1.2287648176090575, +0.84131615186808295), (+1.7797013668360235, +0.35407812029987057), (+1.8921837854167396, +0.49746608304265572), (+1.2897281512400418, +0.97110701246788234), (+1.8764421645096276, +0.17228404846212725), (+1.6078107745747523, +0.55660021120844572), (+1.4060452691370213, +0.53177038955253372E-1), (+1.6552163465305096, +0.63331670014495633), (+1.1460086997934003, +0.87814333103467779), (+1.0260948924019291, +0.66881381077375412), (+1.7012055951042717, +0.26667261709417173), (+1.8923927658014577, +0.31717912114022595), (+1.3727850976582709, +0.42424085344796431), (+1.4000439832602825, +0.31184658609421972), (+1.3772225360426082, +0.27135647004841940), (+1.2318947235488600, +0.84807393436608935), (+1.5637677080499579, +0.69469488517881184), (+1.3248247963268296, +0.51563226665480832), (+1.5729581970505353, +0.24637965857407665), (+1.8807971304469970, +0.88402269583261794), (+1.9289230365903669, +0.64436770748640948), (+1.8271556217786680, +0.13135816166151579), (+1.3084983882339196, +0.40354265556821522), (+1.4450510998600088, +0.90259267055751080), (+1.1656670770834596, +0.59834502785422705), (+1.7182974390169179, +0.75198192081690696), (+1.2428692397023224, +0.68827546497277214), (+1.6186341334869849, +0.27231137910425246), (+1.6818381418181252, +0.21403015171845774), (+1.4691365405348327, +0.96979202860041736), (+1.2221591063440000, +0.96939943894895064), (+1.7508723045936798, +0.56083707950720307), (+1.6690012525006310, +0.96061332994512449), (+1.0166702272730803, +0.59594934657866250), (+1.5067215803264928, +0.24800295714225595), (+1.3663910567400794, +0.97368883700825068E-1), (+1.5852428032410819, +0.96130851128540828), (+1.5609019618904945, +0.91137359311546107), (+1.3792594695687663, +0.74481876490214094), (+1.2514795539868664, +0.84691912289101523), (+1.1022807673095232, +0.46680687084012540), (+1.3934756956231507, +0.37802170249925071), (+1.8241008605569027, +0.90497508255151649), (+1.9144322649246168, +0.35036322329297392), (+1.4312379720427695, +0.23407895098496601), (+1.7610784913184179, +0.40341962431827766), (+1.7201686812950721, +0.27445650496033075), (+1.0522491226158737, +0.80463519130067651), (+1.0514796015585532, +0.29822563362202620), (+1.4055752846985834, +0.93925558785480689), (+1.2200190631381189, +0.41078304070689681), (+1.4560401646435648, +0.32853907150362316), (+1.6305542385003216, +0.15905921221338815), (+1.5462568328612682, +0.88354581231503371), (+1.9900851272705626, +0.77404050578500450), (+1.9871371328379765, +0.17959414774536775), (+1.3510740563316757, +0.30157316579423649), (+1.1760603952159085, +0.49672733989949996), (+1.9185193793446089, +0.51022413868463656), (+1.1312747435079098, +0.98367514988670213), (+1.8717129325336086, +0.81674607484968020), (+1.6013040243588816, +0.48262781469864491), (+1.2096430800529774, +0.36602153538268782E-1), (+1.2447895299583502, +0.50882825196873360), (+1.5598823719846175, +0.13124939306271485), (+1.7163431602570645, +0.21825993049531434E-2), (+1.4831857845941543, +0.60496759810890888), (+1.0421260143198696, +0.68024549561579981E-1), (+1.4449312648755881, +0.67932106252544500), (+1.9382557492664987, +0.17605317024408607), (+1.1623336639826007, +0.75170452395731657), (+1.9819955995700900, +0.32803412353810601), (+1.2023115326307692, +0.63729562925068928), (+1.7372227278984043, +0.54003242680600583), (+1.4493126888032011, +0.82983957317760471), (+1.1516277853208157, +0.83702791518728348), (+1.8390375166482809, +0.64092342389802748), (+1.2268684152331881, +0.66498418400555348), (+1.1870504687916996, +0.63268135776043710)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+77

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.98509114640084237632953150289962683, +0.433519185367318517687053040354766740), (+1.53831144354364175013017826041363989, +0.169414624113492134927465080018310263), (+1.30576654624542586534106761548205055, +0.987176974062162266015028416926156870), (+1.44355941056355256297979521139196013, +0.275584688956708052776176951060592156), (+1.30934598449192108747123154163549095, +0.983731014239186340806794882739380142), (+1.24290750133730924104454302155569602, +0.612921413730485237928388496876603888), (+1.61095832721277021171342279938306050, +0.713635568259971743065649158941357307), (+1.31980948434576389596128493853966962, +0.370635048969747472008759831300893433), (+1.73658558200917672923298265886301842, +0.751660208714038570961359759796163527), (+1.40787430473354049026942712652191142, +0.700831259846701827475037851198276421), (+1.29644677604805722388348126788270251, +0.245591507802361155325629468525467417), (+1.71097125122070613240657059011454245, +0.156759867855931897839011410434832655), (+1.48517680229709475904546781997216460, +0.715151471757805178865248277177719435), (+1.69512530528390981054482822459731469, +0.667199663330453710887676063145750680), (+1.69914622142328286640008659202945264, +0.444212456745881806982490210582430157), (+1.09228236610817179753651750607927952, +0.826596460952331341272545943513226041), (+1.96351632937746935488905452412315315, +0.999089045021355374167715741287294260), (+1.11171237120852359648230165757199912, +0.646543630965894457598036261045569303), (+1.45326340693097146590908464699927533, +0.786907643566991190401607425689950587), (+1.78713193178162889632232154835333217, +0.203414522145613572873132079435391692), (+1.78240618677785688853152867701662450, +0.551490141022894705895148657280552931), (+1.08164200594426146588301314574090656, +0.308023179549226368690771348520142656), (+1.69537815161126328654018229985013068, +0.551260480009296247625104937651662716), (+1.66795936602407151283164815838590167, +0.930049828252737312610593085604341160), (+1.39969135354890957251919696063460337, +0.202060992862365745470076250716746736), (+1.95815020509783155487478341752907399, +0.103701364227929642312107250375007910), (+1.35304615575335063727120815266282923, +0.175416134633168751744208317553087222), (+1.73574360298628982608214195689625824, +0.607582178320518236104229894363068223E-1), (+1.47774575134475214653256318437659137, +0.931124914857881010882100629033345349), (+1.69064856298364055629585108326802564, +0.667498572733052920796318442826778819), (+1.24275121044443933805537063612402839, +0.118447887584502875116344789802658416), (+1.54557618383781824751655117844896710, +0.433745382737693060884599000755319501), (+1.00995042110149149870699840004381844, +0.717306329063594065846409824897992169), (+1.61687407481615251670773858459681198, +0.591993742606645379795848717974818917E-1), (+1.64088836052240625006487744984564242, +0.535115103368738068234126001461689244E-1), (+1.52373654663465476991816052190858508, +0.194747796398657250967594909356460317), (+1.63748313746164692022027514247345822, +0.136622423805326186818159614263190020), (+1.78032960325607509266009228188862751, +0.810109867492351666042543295190005195), (+1.22989865071132425576235756463117241, +0.631332176762464897506451531293779408), (+1.28681936522725228730896710001727240, +0.931264051823226678841141161423796270), (+1.89575220914485116124154901885688208, +0.426704457096629918694823121620385265), (+1.10714465838026954707632393202091666, +0.622827683944908068174551446893191004E-1), (+1.24479738469244860376651160539968226, +0.982167110204892474871459221046211783), (+1.94199701723018849001001748287859857, +0.562747039880456868558388541340217404), (+1.58951182369266162872303446219385968, +0.660167279243818773290753659476838031), (+1.73314792003579623430073573312529792, +0.696579808906149763288743266493602912), (+1.70492597040601461056254902252668435, +0.804992100558436250248147448673267203), (+1.92989999566859030480544032033008407, +0.104634745798543009976327629934472234), (+1.24654623731603683984691266083693565, +0.334665886365262192545355463454140084), (+1.25368891649404225853125849086677035, +0.317059536298729632177089926533732803), (+1.03738139805829276900626135450249054, +0.972194585592232189988728893053271892), (+1.57726269232778611147383033590474991, +0.972388557245886271372476970335301077), (+1.35373881791562227226936221880195015, +0.297475268214726947258827732606868973), (+1.98897215209100613710512819006764525, +0.171782954828915605682611519456877473), (+1.18313306293207277526443699110207320, +0.559356813377932572803603783064400006), (+1.51275937319856547209691853429016474, +0.912037494075393323365691422723697449E-1), (+1.53841890427468777619735806917013758, +0.643512379210582304536777122608830915), (+1.23780616712584049826366672487367246, +0.682286554288983800325595756083534456), (+1.75292024323087939266734142528355740, +0.734284944818856767311857874118530773), (+1.84189922945165134924414643440856636, +0.495058893327169623792893102653616142), (+1.82171163081209670042391287268259616, +0.743477597223458593095725162169404570), (+1.55606818764342977389608757629521731, +0.828238541762432457662831477321731904E-1), (+1.89566089353585182217080299504988569, +0.719872849313238216379211030893435029), (+1.40175468307752589712781929720537733, +0.148417757618676679286058545173731217), (+1.81074714383292268937209276944230220, +0.350502849635579313706145073103701663), (+1.74722732455720530190823979322339365, +0.375315310802197035266915656241359338E-1), (+1.87924061683657907399048803073454524, +0.682565038289394860165691551622883395), (+1.78350114758740174048847202151565380, +0.880252251810428841305498421467301871), (+1.58704804601906919773460901371195789, +0.127411967441379154916694885583793986), (+1.15535712458367038225019196810454212, +0.372466248480222125796679822616871480), (+1.95778338381344922682381235805392376, +0.391773843340136504656922548380791519), (+1.56560489856572713959310570103432391, +0.437122765619617677528544976297427605), (+1.39914053091655401804680357068354059, +0.207279304808106971488142211791795655), (+1.60033557930936250342444014950329063, +0.362064056329975099944887236232591225), (+1.69107833050477632422295493497376839, +0.514546732802002271449460379759717355E-1), (+1.36642024080161198002046272175295562, +0.147288022065865471590305433062805329), (+1.32875377632884840079049970750944286, +0.588786687323382774432541250693407469)

347

348adat = getFFTR(getFFTF(data)) / size(data)

349adat

350(+1.98509114640084237632953150289962586, +0.433519185367318517687053040354766691), (+1.53831144354364175013017826041363989, +0.169414624113492134927465080018310359), (+1.30576654624542586534106761548205036, +0.987176974062162266015028416926157159), (+1.44355941056355256297979521139195994, +0.275584688956708052776176951060592107), (+1.30934598449192108747123154163549076, +0.983731014239186340806794882739380334), (+1.24290750133730924104454302155569544, +0.612921413730485237928388496876603792), (+1.61095832721277021171342279938306050, +0.713635568259971743065649158941357403), (+1.31980948434576389596128493853966905, +0.370635048969747472008759831300893578), (+1.73658558200917672923298265886301861, +0.751660208714038570961359759796163527), (+1.40787430473354049026942712652191123, +0.700831259846701827475037851198276710), (+1.29644677604805722388348126788270251, +0.245591507802361155325629468525467442), (+1.71097125122070613240657059011454187, +0.156759867855931897839011410434832751), (+1.48517680229709475904546781997216421, +0.715151471757805178865248277177719531), (+1.69512530528390981054482822459731450, +0.667199663330453710887676063145750680), (+1.69914622142328286640008659202945264, +0.444212456745881806982490210582430301), (+1.09228236610817179753651750607927952, +0.826596460952331341272545943513226330), (+1.96351632937746935488905452412315296, +0.999089045021355374167715741287294356), (+1.11171237120852359648230165757199932, +0.646543630965894457598036261045569303), (+1.45326340693097146590908464699927514, +0.786907643566991190401607425689950684), (+1.78713193178162889632232154835333178, +0.203414522145613572873132079435391668), (+1.78240618677785688853152867701662450, +0.551490141022894705895148657280553027), (+1.08164200594426146588301314574090636, +0.308023179549226368690771348520142656), (+1.69537815161126328654018229985013030, +0.551260480009296247625104937651662813), (+1.66795936602407151283164815838590167, +0.930049828252737312610593085604341353), (+1.39969135354890957251919696063460337, +0.202060992862365745470076250716746712), (+1.95815020509783155487478341752907380, +0.103701364227929642312107250375008018), (+1.35304615575335063727120815266282885, +0.175416134633168751744208317553087246), (+1.73574360298628982608214195689625862, +0.607582178320518236104229894363067923E-1), (+1.47774575134475214653256318437659098, +0.931124914857881010882100629033345445), (+1.69064856298364055629585108326802545, +0.667498572733052920796318442826778722), (+1.24275121044443933805537063612402858, +0.118447887584502875116344789802658572), (+1.54557618383781824751655117844896691, +0.433745382737693060884599000755319501), (+1.00995042110149149870699840004381863, +0.717306329063594065846409824897992265), (+1.61687407481615251670773858459681121, +0.591993742606645379795848717974818135E-1), (+1.64088836052240625006487744984564223, +0.535115103368738068234126001461689786E-1), (+1.52373654663465476991816052190858470, +0.194747796398657250967594909356460317), (+1.63748313746164692022027514247345802, +0.136622423805326186818159614263190140), (+1.78032960325607509266009228188862732, +0.810109867492351666042543295190005388), (+1.22989865071132425576235756463117183, +0.631332176762464897506451531293779504), (+1.28681936522725228730896710001727221, +0.931264051823226678841141161423796078), (+1.89575220914485116124154901885688169, +0.426704457096629918694823121620385217), (+1.10714465838026954707632393202091646, +0.622827683944908068174551446893191184E-1), (+1.24479738469244860376651160539968187, +0.982167110204892474871459221046211590), (+1.94199701723018849001001748287859837, +0.562747039880456868558388541340217500), (+1.58951182369266162872303446219385929, +0.660167279243818773290753659476838128), (+1.73314792003579623430073573312529772, +0.696579808906149763288743266493602912), (+1.70492597040601461056254902252668397, +0.804992100558436250248147448673266914), (+1.92989999566859030480544032033008368, +0.104634745798543009976327629934472162), (+1.24654623731603683984691266083693546, +0.334665886365262192545355463454140180), (+1.25368891649404225853125849086676958, +0.317059536298729632177089926533732514), (+1.03738139805829276900626135450249035, +0.972194585592232189988728893053271796), (+1.57726269232778611147383033590474952, +0.972388557245886271372476970335301173), (+1.35373881791562227226936221880195015, +0.297475268214726947258827732606869069), (+1.98897215209100613710512819006764525, +0.171782954828915605682611519456877376), (+1.18313306293207277526443699110207320, +0.559356813377932572803603783064400198), (+1.51275937319856547209691853429016454, +0.912037494075393323365691422723699014E-1), (+1.53841890427468777619735806917013738, +0.643512379210582304536777122608831011), (+1.23780616712584049826366672487367246, +0.682286554288983800325595756083534649), (+1.75292024323087939266734142528355740, +0.734284944818856767311857874118530869), (+1.84189922945165134924414643440856617, +0.495058893327169623792893102653616238), (+1.82171163081209670042391287268259558, +0.743477597223458593095725162169404763), (+1.55606818764342977389608757629521693, +0.828238541762432457662831477321732385E-1), (+1.89566089353585182217080299504988588, +0.719872849313238216379211030893435222), (+1.40175468307752589712781929720537733, +0.148417757618676679286058545173731192), (+1.81074714383292268937209276944230201, +0.350502849635579313706145073103701759), (+1.74722732455720530190823979322339346, +0.375315310802197035266915656241361264E-1), (+1.87924061683657907399048803073454504, +0.682565038289394860165691551622883395), (+1.78350114758740174048847202151565380, +0.880252251810428841305498421467301582), (+1.58704804601906919773460901371195712, +0.127411967441379154916694885583794034), (+1.15535712458367038225019196810454231, +0.372466248480222125796679822616871624), (+1.95778338381344922682381235805392395, +0.391773843340136504656922548380791567), (+1.56560489856572713959310570103432391, +0.437122765619617677528544976297427605), (+1.39914053091655401804680357068354040, +0.207279304808106971488142211791795655), (+1.60033557930936250342444014950329063, +0.362064056329975099944887236232591418), (+1.69107833050477632422295493497376820, +0.514546732802002271449460379759718559E-1), (+1.36642024080161198002046272175295524, +0.147288022065865471590305433062805377), (+1.32875377632884840079049970750944305, +0.588786687323382774432541250693407662)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+89

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.81814146, +1.33285594, +1.00378907, +1.91878712, +1.91475368, +1.47293735, +1.63486767, +1.82163191, +1.21434546, +1.49547148, +1.88199258, +1.38290691, +1.37025714, +1.80944061, +1.01134527, +1.34087205, +1.24798632, +1.13191950, +1.11972308, +1.07535601, +1.00281537, +1.54921699, +1.89495897, +1.84858251, +1.47670114, +1.16087544, +1.45699298, +1.71132088, +1.03433108, +1.46559751, +1.42812848, +1.06448984, +1.43371272, +1.41162300, +1.42696869, +1.38219714, +1.29546750, +1.88980806, +1.71605480, +1.96826506, +1.07247841, +1.88954914, +1.00360250, +1.88989949, +1.06861138, +1.12115979, +1.49410510, +1.98797476, +1.27431536, +1.85094619, +1.30781221, +1.36818814, +1.28227091, +1.68636131, +1.22129083, +1.98325658, +1.65326357, +1.03576553, +1.29756379, +1.65532589, +1.15828216, +1.04427338, +1.68643951, +1.45294106, +1.20903134, +1.62105751, +1.14011264, +1.11362684, +1.04458213, +1.69084609, +1.12810469, +1.10237241, +1.05160797, +1.19025493, +1.55003929, +1.30254698, +1.19938302, +1.63496649, +1.00944281, +1.27391183, +1.75598037, +1.92441261, +1.31649148, +1.44009256, +1.47708225, +1.05808043, +1.28516710, +1.18229604, +1.00628591

364

365adat = getFFTR(getFFTF(data)) / size(data)

366adat

367+1.81814218, +1.33285630, +1.00379086, +1.91878676, +1.91475308, +1.47293806, +1.63486779, +1.82163131, +1.21434724, +1.49547195, +1.88199055, +1.38290918, +1.37025881, +1.80943537, +1.01135051, +1.34086990, +1.24798644, +1.13192010, +1.11972356, +1.07535720, +1.00282001, +1.54921544, +1.89495468, +1.84857869, +1.47670257, +1.16087997, +1.45699358, +1.71131313, +1.03434038, +1.46559346, +1.42812610, +1.06449664, +1.43370891, +1.41162252, +1.42696917, +1.38219643, +1.29547346, +1.88979757, +1.71605742, +1.96825242, +1.07249713, +1.88953137, +1.00362110, +1.88987660, +1.06862390, +1.12116504, +1.49410474, +1.98795652, +1.27432990, +1.85093427, +1.30781972, +1.36818647, +1.28227651, +1.68635213, +1.22130108, +1.98324430, +1.65325999, +1.03577316, +1.29756641, +1.65531850, +1.15828586, +1.04427934, +1.68643308, +1.45294082, +1.20903563, +1.62105238, +1.14011645, +1.11362720, +1.04458702, +1.69083726, +1.12810814, +1.10237169, +1.05161059, +1.19025588, +1.55003631, +1.30254781, +1.19938517, +1.63496315, +1.00944591, +1.27391315, +1.75598025, +1.92441034, +1.31649256, +1.44009292, +1.47708237, +1.05808151, +1.28516710, +1.18229663, +1.00628614

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+48

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.5387522047113602, +1.1016279261200967, +1.0948878423158270, +1.4578700401967943, +1.2709928794313994, +1.6276975675504350, +1.8399339094513523, +1.1182712699043857, +1.2608379503234965, +1.6389069884610765, +1.4250816095604515, +1.4851463519429524, +1.1951996665014710, +1.3590005798176268, +1.8441026385597472, +1.1503769981197600, +1.1887041616356777, +1.0475747519612149, +1.6673145909474929, +1.6906900144451413, +1.8187727985269864, +1.9119701324303038, +1.6544871777043029, +1.8678776113313664, +1.4241018674068326, +1.3962914633888057, +1.7117571361263453, +1.7181196150226452, +1.2539444599114487, +1.6580581722133527, +1.0247151316070418, +1.5067861195620780, +1.6154570058897888, +1.0098584341036352, +1.4947965384705348, +1.5541997494295983, +1.6241691488485266, +1.1173747563386165, +1.3576468935076755, +1.2503164476877284, +1.6532647340609850, +1.5882442106980754, +1.4573229205391192, +1.0263031403872924, +1.2689102932523586, +1.9642680900024954, +1.3338203662767252, +1.1802147820576849

381

382adat = getFFTR(getFFTF(data)) / size(data)

383adat

384+1.5387522047113598, +1.1016279261200967, +1.0948878423158270, +1.4578700401967948, +1.2709928794313996, +1.6276975675504355, +1.8399339094513520, +1.1182712699043857, +1.2608379503234965, +1.6389069884610767, +1.4250816095604515, +1.4851463519429526, +1.1951996665014712, +1.3590005798176268, +1.8441026385597474, +1.1503769981197600, +1.1887041616356775, +1.0475747519612149, +1.6673145909474929, +1.6906900144451418, +1.8187727985269866, +1.9119701324303040, +1.6544871777043026, +1.8678776113313660, +1.4241018674068326, +1.3962914633888055, +1.7117571361263453, +1.7181196150226452, +1.2539444599114489, +1.6580581722133527, +1.0247151316070420, +1.5067861195620782, +1.6154570058897886, +1.0098584341036354, +1.4947965384705348, +1.5541997494295989, +1.6241691488485266, +1.1173747563386169, +1.3576468935076755, +1.2503164476877282, +1.6532647340609847, +1.5882442106980754, +1.4573229205391192, +1.0263031403872926, +1.2689102932523588, +1.9642680900024956, +1.3338203662767254, +1.1802147820576852

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+77

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.85756878289037783744356837945872236, +1.60869026508776985554401317685200420, +1.73341324214014788143703193620654077, +1.43671351190113987763459586152194872, +1.99654017942838968356044799069346440, +1.86636054951565467273151399968475378, +1.73499983538759175723186196619770544, +1.86351347610980910225261525038485608, +1.42670638185441988953586248252418782, +1.57726957400558904418559412794527550, +1.12122166362267635439640368086464096, +1.64737027562135318383721517810264049, +1.44070263240405768738938835104166303, +1.70343404506234160808243427313239439, +1.97109619034125324774538993979936485, +1.69716429722744006309154012136021294, +1.30690965762197101974032004048489582, +1.43773314067788704131520172233877285, +1.92847136512692582614117898742058158, +1.35156101140822146695841286528777394, +1.88924114200048552538991920660902783, +1.72959972436978466326009815180989145, +1.38976024502152990873281622968647117, +1.62875858914709297569191908873601675, +1.50912465061352165470430487213713050, +1.18735686140676026481662745022741854, +1.87980233204803976781355981373162388, +1.27806149476790762280854283725120487, +1.41602348173716632760482032639203535, +1.91191417719223485521093083208484025, +1.41002773320953376054769515252169827, +1.65524896738899224777916932228093724, +1.35092987090739669329662344998377311, +1.21971229802365037488978032710003958, +1.44807885810561364921431247830513158, +1.94429597913707846634096591433826757, +1.12254012636143180944565155043465735, +1.55823258360025648306248124181768086, +1.44415734722925215711203679735117683, +1.19905904653751385459684892374444378, +1.14301933223022957856420583399899667, +1.23773081076592289011503381511899458, +1.68235084449065517532355912520799935, +1.88516190656545454828505830008021675, +1.78802747852581156499612910901879011, +1.87016292764951622918847788486213430, +1.79143962193561075159752553799045577, +1.94767971793024600861651911351721832, +1.38195921232368707352235129728453134, +1.88932866420679883937479250139590893, +1.44177709519373288957911232800568993, +1.06594753305902862858083394371797568, +1.37492137019078134193114571367864810, +1.12503613929056578258065467936139852, +1.86632183870972089751436147109419874, +1.33015715889454680197977890272021540, +1.51008208495064492819861811729905476, +1.96740000885604957389643051455291671, +1.28898099274143681723059981120553361, +1.93178438185983534335369892874747085, +1.39132082407283677290414956478550097, +1.12725015249471482121477605598741434, +1.00244069909108267947709675468092542, +1.75464009703569422700339544778468724, +1.36505271546111207569806459315692183, +1.95555797902753285152966513625137443, +1.10557531063078705991078648464024324, +1.27070811807925566297020162522648627, +1.85463916917895396961111212794844234, +1.06140545307065594366340625617127821, +1.15265433920641515413374785160433322, +1.93529166377948287847640844344471595, +1.64989960467143722373416915207898423, +1.73202745363222419442646971316133220, +1.44163931668882231023382081357759606, +1.18452337161099438031477175538525393, +1.08747744010496936263184875332358326

398

399adat = getFFTR(getFFTF(data)) / size(data)

400adat

401+1.85756878289037783744356837945872274, +1.60869026508776985554401317685200477, +1.73341324214014788143703193620654193, +1.43671351190113987763459586152194891, +1.99654017942838968356044799069346498, +1.86636054951565467273151399968475494, +1.73499983538759175723186196619770583, +1.86351347610980910225261525038485570, +1.42670638185441988953586248252418763, +1.57726957400558904418559412794527550, +1.12122166362267635439640368086464096, +1.64737027562135318383721517810264087, +1.44070263240405768738938835104166361, +1.70343404506234160808243427313239459, +1.97109619034125324774538993979936504, +1.69716429722744006309154012136021391, +1.30690965762197101974032004048489621, +1.43773314067788704131520172233877324, +1.92847136512692582614117898742058254, +1.35156101140822146695841286528777471, +1.88924114200048552538991920660902821, +1.72959972436978466326009815180989068, +1.38976024502152990873281622968647098, +1.62875858914709297569191908873601636, +1.50912465061352165470430487213713050, +1.18735686140676026481662745022741816, +1.87980233204803976781355981373162427, +1.27806149476790762280854283725120449, +1.41602348173716632760482032639203555, +1.91191417719223485521093083208484141, +1.41002773320953376054769515252169885, +1.65524896738899224777916932228093801, +1.35092987090739669329662344998377330, +1.21971229802365037488978032710004035, +1.44807885810561364921431247830513139, +1.94429597913707846634096591433826623, +1.12254012636143180944565155043465677, +1.55823258360025648306248124181768029, +1.44415734722925215711203679735117568, +1.19905904653751385459684892374444262, +1.14301933223022957856420583399899629, +1.23773081076592289011503381511899381, +1.68235084449065517532355912520799800, +1.88516190656545454828505830008021694, +1.78802747852581156499612910901878973, +1.87016292764951622918847788486213372, +1.79143962193561075159752553799045500, +1.94767971793024600861651911351721871, +1.38195921232368707352235129728453076, +1.88932866420679883937479250139590932, +1.44177709519373288957911232800569051, +1.06594753305902862858083394371797606, +1.37492137019078134193114571367864887, +1.12503613929056578258065467936139871, +1.86632183870972089751436147109419971, +1.33015715889454680197977890272021502, +1.51008208495064492819861811729905398, +1.96740000885604957389643051455291709, +1.28898099274143681723059981120553322, +1.93178438185983534335369892874747124, +1.39132082407283677290414956478550078, +1.12725015249471482121477605598741454, +1.00244069909108267947709675468092504, +1.75464009703569422700339544778468763, +1.36505271546111207569806459315692260, +1.95555797902753285152966513625137520, +1.10557531063078705991078648464024344, +1.27070811807925566297020162522648665, +1.85463916917895396961111212794844349, +1.06140545307065594366340625617127840, +1.15265433920641515413374785160433283, +1.93529166377948287847640844344471614, +1.64989960467143722373416915207898423, +1.73202745363222419442646971316133220, +1.44163931668882231023382081357759625, +1.18452337161099438031477175538525431, +1.08747744010496936263184875332358326

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+24

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.07678914, +0.752935171), (+1.88115418, +0.190966129), (+1.86291575, +0.632161260), (+1.09753311, +0.847289026), (+1.72789645, +0.367203712), (+1.80648017, +0.454330087), (+1.57347751, +0.597230077), (+1.03152013, +0.703959703), (+1.12849712, +0.941620529), (+1.98867965, +0.391131997), (+1.40771461, +0.612049580), (+1.49707651, +0.522488594), (+1.19570756, +0.436466932E-2), (+1.09569192, +0.350766420), (+1.85829997, +0.405967474), (+1.28655279, +0.378981590), (+1.28449106, +0.460599124), (+1.45793080, +0.984087646), (+1.35807025, +0.959919512), (+1.39288414, +0.638664901), (+1.53465819, +0.887149334), (+1.65510535, +0.410978675), (+1.21109819, +0.758611739), (+1.29436624, +0.770080686)

415

416adat = getFFTR(getFFTF(data)) / size(data)

417adat

418(+1.07678926, +0.752935231), (+1.88115418, +0.190966085), (+1.86291587, +0.632161200), (+1.09753287, +0.847289085), (+1.72789657, +0.367203802), (+1.80648029, +0.454330117), (+1.57347739, +0.597230017), (+1.03152001, +0.703959703), (+1.12849724, +0.941620529), (+1.98867953, +0.391131997), (+1.40771449, +0.612049639), (+1.49707639, +0.522488534), (+1.19570768, +0.436468935E-2), (+1.09569180, +0.350766450), (+1.85830009, +0.405967474), (+1.28655255, +0.378981590), (+1.28449106, +0.460599184), (+1.45793068, +0.984087646), (+1.35807037, +0.959919512), (+1.39288414, +0.638664961), (+1.53465831, +0.887149334), (+1.65510523, +0.410978675), (+1.21109807, +0.758611739), (+1.29436612, +0.770080745)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+37

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.1415810648750062, +0.72589893586171583), (+1.3010501021931411, +0.86497870662423693), (+1.4601477712194595, +0.87284564177143553), (+1.5862964705205560, +0.69630247656343403), (+1.8855920501845931, +0.23869309422713270), (+1.6266503350911081, +0.45658622035690022), (+1.0312482267157743, +0.87196717609886132), (+1.0572359283256265, +0.43691675722794321), (+1.1637717717410352, +0.36922686267889615), (+1.0105040053970460, +0.40688183382496712), (+1.0349404790527106, +0.62664917274495202), (+1.4065408088687676, +0.78042726924065320), (+1.0009973759851039, +0.16628135223481622), (+1.6588926319645878, +0.87630873625665140), (+1.5463937827517551, +0.31813499116464972), (+1.8715525375464284, +0.11174587362572619), (+1.5964080722038201, +0.34364840312751255), (+1.6422572376637774, +0.98217694028289482), (+1.2683975932686122, +0.83338099485761330), (+1.8022658166336258, +0.63268690737879063), (+1.7630548394373409, +0.53453323432983124), (+1.1179028874837820, +0.90561640272091715), (+1.8642610447986137, +0.56572874598041822), (+1.6356106249561861, +0.13233196860772090), (+1.3355113499588414, +0.61576909989425799), (+1.1069147520764993, +0.44048369174555457E-1), (+1.1165793838950653, +0.56985440180091484), (+1.1614651761529378, +0.26756734432691964), (+1.2592601619560913, +0.53868802536571225), (+1.9947249659612631, +0.83449589649037259E-1), (+1.1435347562540770, +0.17862018687451897), (+1.6188264494357507, +0.91893772261186568), (+1.4010916678677174, +0.21943979652209800), (+1.7679143141310683, +0.33182996732713332), (+1.2968582052028881, +0.11765638633413977), (+1.1132970669852735, +0.47652506569536057), (+1.3688313729815687, +0.88102815059324557)

432

433adat = getFFTR(getFFTF(data)) / size(data)

434adat

435(+1.1415810648750038, +0.72589893586171506), (+1.3010501021931413, +0.86497870662423726), (+1.4601477712194588, +0.87284564177143564), (+1.5862964705205556, +0.69630247656343425), (+1.8855920501845929, +0.23869309422713295), (+1.6266503350911081, +0.45658622035690061), (+1.0312482267157737, +0.87196717609886132), (+1.0572359283256256, +0.43691675722794310), (+1.1637717717410347, +0.36922686267889610), (+1.0105040053970453, +0.40688183382496690), (+1.0349404790527099, +0.62664917274495213), (+1.4065408088687676, +0.78042726924065309), (+1.0009973759851032, +0.16628135223481638), (+1.6588926319645874, +0.87630873625665140), (+1.5463937827517551, +0.31813499116464983), (+1.8715525375464279, +0.11174587362572638), (+1.5964080722038194, +0.34364840312751221), (+1.6422572376637770, +0.98217694028289448), (+1.2683975932686116, +0.83338099485761297), (+1.8022658166336252, +0.63268690737879041), (+1.7630548394373406, +0.53453323432983080), (+1.1179028874837817, +0.90561640272091692), (+1.8642610447986132, +0.56572874598041833), (+1.6356106249561861, +0.13233196860772087), (+1.3355113499588411, +0.61576909989425799), (+1.1069147520764988, +0.44048369174555520E-1), (+1.1165793838950653, +0.56985440180091473), (+1.1614651761529373, +0.26756734432691964), (+1.2592601619560908, +0.53868802536571214), (+1.9947249659612627, +0.83449589649037106E-1), (+1.1435347562540763, +0.17862018687451886), (+1.6188264494357503, +0.91893772261186568), (+1.4010916678677174, +0.21943979652209827), (+1.7679143141310676, +0.33182996732713366), (+1.2968582052028881, +0.11765638633414004), (+1.1132970669852733, +0.47652506569536074), (+1.3688313729815687, +0.88102815059324591)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+35

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.86879788585909390062337966482480977, +0.307049444406607574253088120592091877), (+1.39143856096365260386465097846240143, +0.993799489452920895621636566722319902), (+1.70918510265611885530485448453852972, +0.666649914221684313155692515739427196), (+1.13640157749758433948702842088579384, +0.707799652517206465160337122639578622E-2), (+1.13505794532010369453167004893727455, +0.464107920075583565992643596812207762), (+1.73256562444925479365112325490596386, +0.368082614439181366684857854066032511), (+1.73056360871777944722512754270338973, +0.853212445728832854232933208384145198), (+1.28699613950845526857949626573309572, +0.316897517482346246369073073282563971), (+1.38236989974133581867713630280529047, +0.835554250494219936135110399443466134), (+1.14737882267173463322005283875802416, +0.983581029753262995671499028162180892), (+1.00181404651669919727219624673871638, +0.817596277293273886841005190800408442), (+1.12263021785234511073269515713310927, +0.662158923533296019382868424434145610), (+1.31589807860758287197844980846035498, +0.196239090621957609270325955865114074), (+1.67916176468373951253320393443186118, +0.975053470090216725583229469122136107), (+1.52347901786175273106506401634327164, +0.727444460542102658171531189214011756E-1), (+1.08606872127325103018746402720424888, +0.354421961354841028997876188171808834), (+1.65307786026597446901946406702601504, +0.101346887791938480883558131313142061), (+1.51265754381154938950361785055288310, +0.664971925913157940341826840528549056E-1), (+1.40452464100655937498353552067273313, +0.613889314981331671983749142083992659), (+1.74083954658632406277985044038774627, +0.392875488027447403932920808245130188), (+1.24562488207654021105707538289662222, +0.894646743365154461735324201003854483), (+1.08902580014061684718276775492495188, +0.822270442679956018105363395313616219), (+1.76770536456270253582457449223602048, +0.745947784191525758826916199872031965E-1), (+1.71608922379806109927225093015709124, +0.782251436569022955163370423822015185), (+1.05235473912958251927972129141360086, +0.634556642755020518152558608000666711), (+1.94033154352039698324064935454272002, +0.702320465740682367186996740014061002), (+1.72608753095969682393370984687148147, +0.617160216637123274065528290511008851), (+1.41529090808988625196655340263329990, +0.768027871024604178205291468251097021), (+1.56301761159444060040585606592346201, +0.285604850470389803689718955403972159), (+1.63142906546928579933798181731629132, +0.950865706569784373912461544403966854), (+1.96850080214481657919264417264957509, +0.826080632845609551917748199004945770), (+1.65208841904902232974949669256391673, +0.294370468476366909084191898503401761), (+1.95082970809233301325943278828724664, +0.143441899753871790604999274635943702E-1), (+1.95162503116006978571192149899492057, +0.240545938254323180808798931162984967), (+1.72265239810461313906712098969081456, +0.493511850680703005594468844310789292)

449

450adat = getFFTR(getFFTF(data)) / size(data)

451adat

452(+1.86879788585909390062337966482480957, +0.307049444406607574253088120592091877), (+1.39143856096365260386465097846240143, +0.993799489452920895621636566722320094), (+1.70918510265611885530485448453852934, +0.666649914221684313155692515739427292), (+1.13640157749758433948702842088579345, +0.707799652517206465160337122639581105E-2), (+1.13505794532010369453167004893727436, +0.464107920075583565992643596812207810), (+1.73256562444925479365112325490596366, +0.368082614439181366684857854066032559), (+1.73056360871777944722512754270338954, +0.853212445728832854232933208384145198), (+1.28699613950845526857949626573309534, +0.316897517482346246369073073282564019), (+1.38236989974133581867713630280529067, +0.835554250494219936135110399443466327), (+1.14737882267173463322005283875802416, +0.983581029753262995671499028162180989), (+1.00181404651669919727219624673871638, +0.817596277293273886841005190800408442), (+1.12263021785234511073269515713310927, +0.662158923533296019382868424434145610), (+1.31589807860758287197844980846035479, +0.196239090621957609270325955865114099), (+1.67916176468373951253320393443186080, +0.975053470090216725583229469122136107), (+1.52347901786175273106506401634327145, +0.727444460542102658171531189214013562E-1), (+1.08606872127325103018746402720424888, +0.354421961354841028997876188171808882), (+1.65307786026597446901946406702601504, +0.101346887791938480883558131313142193), (+1.51265754381154938950361785055288271, +0.664971925913157940341826840528550019E-1), (+1.40452464100655937498353552067273294, +0.613889314981331671983749142083992948), (+1.74083954658632406277985044038774647, +0.392875488027447403932920808245130044), (+1.24562488207654021105707538289662222, +0.894646743365154461735324201003854579), (+1.08902580014061684718276775492495169, +0.822270442679956018105363395313616219), (+1.76770536456270253582457449223602010, +0.745947784191525758826916199872033169E-1), (+1.71608922379806109927225093015709124, +0.782251436569022955163370423822015282), (+1.05235473912958251927972129141360086, +0.634556642755020518152558608000666808), (+1.94033154352039698324064935454272022, +0.702320465740682367186996740014061194), (+1.72608753095969682393370984687148185, +0.617160216637123274065528290511008851), (+1.41529090808988625196655340263329951, +0.768027871024604178205291468251097214), (+1.56301761159444060040585606592346182, +0.285604850470389803689718955403972159), (+1.63142906546928579933798181731629132, +0.950865706569784373912461544403966854), (+1.96850080214481657919264417264957471, +0.826080632845609551917748199004945962), (+1.65208841904902232974949669256391653, +0.294370468476366909084191898503401712), (+1.95082970809233301325943278828724664, +0.143441899753871790604999274635944905E-1), (+1.95162503116006978571192149899492076, +0.240545938254323180808798931162984919), (+1.72265239810461313906712098969081456, +0.493511850680703005594468844310789292)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+20

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.31535208, +1.42134047, +1.93066144, +1.69142139, +1.78260982, +1.37182856, +1.01878166, +1.23545957, +1.33246970, +1.65463448, +1.59789693, +1.74201703, +1.40393257, +1.45275998, +1.06132174, +1.44533014, +1.96008372, +1.73416662, +1.97287917, +1.45781422

466

467adat = getFFTR(getFFTF(data)) / size(data)

468adat

469+1.31535172, +1.42134023, +1.93066120, +1.69142115, +1.78260994, +1.37182868, +1.01878190, +1.23545957, +1.33246982, +1.65463448, +1.59789693, +1.74201703, +1.40393269, +1.45275998, +1.06132185, +1.44533014, +1.96008372, +1.73416674, +1.97287917, +1.45781434

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+64

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.1152090303845990, +1.3416941987836759, +1.8657788402149729, +1.1665506065675588, +1.8656940626589626, +1.6495312128407060, +1.3117306283499932, +1.6428627857381053, +1.5657307146335671, +1.5269191065954857, +1.1818871928379719, +1.5241619372749291, +1.3092955132073856, +1.6417802652834346, +1.0885150576902698, +1.1459127729442811, +1.3556236915649562, +1.5718165821517331, +1.2832262814540485, +1.3575745886358566, +1.0877438731377405, +1.7581973726917841, +1.1985209916548725, +1.2571238024377098, +1.9797044219912752, +1.2691937582667521, +1.3984781888124020, +1.6845314378827210, +1.6516581322654598, +1.5727516553739245, +1.6714497402384816, +1.9204186635886642, +1.8811386151016649, +1.8536790180429494, +1.5894888182102531, +1.2318556477652463, +1.9968823389948351, +1.4689077392563086, +1.5871702472955811, +1.4293428637816281, +1.8308224267578526, +1.1686793607251793, +1.2558805136230764, +1.6077226268004630, +1.9985616605719876, +1.8112406740533653, +1.4873878863447487, +1.3081149929384002, +1.9891604570235533, +1.8892713456958814, +1.3152604227051572, +1.2875339186065311, +1.7587546842973640, +1.3274647260236341, +1.1129607213006174, +1.3736980562647134, +1.8112367920533479, +1.8685419809205819, +1.9835952211878674, +1.4290173153383283, +1.6322685402372623, +1.2444583646347618, +1.1771035555555911, +1.6005172863657433

483

484adat = getFFTR(getFFTF(data)) / size(data)

485adat

486+1.1152090303845990, +1.3416941987836757, +1.8657788402149726, +1.1665506065675586, +1.8656940626589629, +1.6495312128407058, +1.3117306283499932, +1.6428627857381051, +1.5657307146335668, +1.5269191065954852, +1.1818871928379717, +1.5241619372749291, +1.3092955132073858, +1.6417802652834343, +1.0885150576902696, +1.1459127729442808, +1.3556236915649562, +1.5718165821517331, +1.2832262814540483, +1.3575745886358561, +1.0877438731377405, +1.7581973726917839, +1.1985209916548725, +1.2571238024377094, +1.9797044219912752, +1.2691937582667516, +1.3984781888124016, +1.6845314378827208, +1.6516581322654598, +1.5727516553739243, +1.6714497402384816, +1.9204186635886638, +1.8811386151016647, +1.8536790180429490, +1.5894888182102529, +1.2318556477652460, +1.9968823389948351, +1.4689077392563086, +1.5871702472955809, +1.4293428637816279, +1.8308224267578526, +1.1686793607251791, +1.2558805136230762, +1.6077226268004630, +1.9985616605719876, +1.8112406740533651, +1.4873878863447487, +1.3081149929383999, +1.9891604570235530, +1.8892713456958812, +1.3152604227051568, +1.2875339186065307, +1.7587546842973643, +1.3274647260236339, +1.1129607213006174, +1.3736980562647132, +1.8112367920533479, +1.8685419809205812, +1.9835952211878669, +1.4290173153383281, +1.6322685402372623, +1.2444583646347618, +1.1771035555555911, +1.6005172863657426

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+68

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.62822634464715644681979407488685135, +1.82809565885347043132583190898510785, +1.91544869510625187660196309571892257, +1.70403088792667664616444756500664825, +1.89919706932876037243826159681163600, +1.15116397796234803193262710959336672, +1.29820854588998161491697797031793506, +1.50980806787903765344650730241788411, +1.32808736485906326925764562390004603, +1.03821412066840940722646637977850147, +1.34682537565696299769745203748797880, +1.80144720055334026146078977968062451, +1.34185828485750073327546339699415144, +1.15255769200534257721138590477263914, +1.84498370281681314926451516747981872, +1.65064608830351249836169768714062487, +1.36793125274700412603353856410329620, +1.96159265731365803551989440163998032, +1.37080429194618912682988231954550291, +1.77280826671694205686488121988296182, +1.78355618772437634742676457743850236, +1.13589306772956890819887236299394597, +1.70640368255276947919574905876833940, +1.12046858907512373596035254949120246, +1.12872515322206617595126737032027503, +1.09957603391307395693052766472364747, +1.30477579958914560274334817713067965, +1.63009827896477502919642902721236744, +1.94175385062981588696727056969723796, +1.92256759595001055388393788786305157, +1.86203311505651300378112314700228684, +1.43689533961230300748001658176550015, +1.29425957109082461856417350693728151, +1.20599379944998889576003483017796352, +1.54690134925344361519284171886863141, +1.00715278177919891932825275032605461, +1.90231408659972799461227110053041978, +1.20778536871981723766975356638871749, +1.93727341402734421479698675545896026, +1.83615143842727317998512763231890190, +1.33408286043039101515119738717992748, +1.74740666282961041043457959580704275, +1.86854316490050951627517813151456936, +1.17431095018999582640207913126399108, +1.69925287959887275371946496865588047, +1.31343939513913607660847420984823487, +1.97755472678489682296762212468388515, +1.70954294017477867197175494435043586, +1.26482420020230042567832298788048879, +1.26054341343003061675868928801779173, +1.22880517733432895079939334134278559, +1.98178745764764426845958983225045616, +1.04137959082256951281990031147568497, +1.79957588216718475457691229038159365, +1.56079670847127935242594128746307108, +1.12072474397740697182079467482344694, +1.01348828190462404049208554020686562, +1.63698762857697827875070793510551418, +1.89665160789428382421583680895139386, +1.54633087747929561331721115931946401, +1.17247841254533250803326518289199126, +1.53686070085004265071968706205983332, +1.41350383712448516332112656353318396, +1.39069808160480114948825131428304472, +1.06072486163561678515971008306369445, +1.07508589877006494906247078095227173, +1.83630450795373469063701075576710697, +1.78412818954366073933346080545656413

500

501adat = getFFTR(getFFTF(data)) / size(data)

502adat

503+1.62822634464715644681979407488685212, +1.82809565885347043132583190898510804, +1.91544869510625187660196309571892276, +1.70403088792667664616444756500664844, +1.89919706932876037243826159681163619, +1.15116397796234803193262710959336633, +1.29820854588998161491697797031793506, +1.50980806787903765344650730241788411, +1.32808736485906326925764562390004660, +1.03821412066840940722646637977850205, +1.34682537565696299769745203748797919, +1.80144720055334026146078977968062451, +1.34185828485750073327546339699415106, +1.15255769200534257721138590477263837, +1.84498370281681314926451516747981815, +1.65064608830351249836169768714062429, +1.36793125274700412603353856410329697, +1.96159265731365803551989440163997974, +1.37080429194618912682988231954550368, +1.77280826671694205686488121988296259, +1.78355618772437634742676457743850101, +1.13589306772956890819887236299394520, +1.70640368255276947919574905876833805, +1.12046858907512373596035254949120188, +1.12872515322206617595126737032027696, +1.09957603391307395693052766472364805, +1.30477579958914560274334817713068062, +1.63009827896477502919642902721236763, +1.94175385062981588696727056969723584, +1.92256759595001055388393788786304984, +1.86203311505651300378112314700228510, +1.43689533961230300748001658176549861, +1.29425957109082461856417350693728497, +1.20599379944998889576003483017796506, +1.54690134925344361519284171886863410, +1.00715278177919891932825275032605807, +1.90231408659972799461227110053042036, +1.20778536871981723766975356638871903, +1.93727341402734421479698675545896142, +1.83615143842727317998512763231890267, +1.33408286043039101515119738717992748, +1.74740666282961041043457959580704121, +1.86854316490050951627517813151456859, +1.17431095018999582640207913126399070, +1.69925287959887275371946496865588066, +1.31343939513913607660847420984823506, +1.97755472678489682296762212468388438, +1.70954294017477867197175494435043605, +1.26482420020230042567832298788048841, +1.26054341343003061675868928801779115, +1.22880517733432895079939334134278502, +1.98178745764764426845958983225045462, +1.04137959082256951281990031147568536, +1.79957588216718475457691229038159326, +1.56079670847127935242594128746307127, +1.12072474397740697182079467482344810, +1.01348828190462404049208554020686543, +1.63698762857697827875070793510551341, +1.89665160789428382421583680895139328, +1.54633087747929561331721115931946343, +1.17247841254533250803326518289199203, +1.53686070085004265071968706205983352, +1.41350383712448516332112656353318454, +1.39069808160480114948825131428304453, +1.06072486163561678515971008306369503, +1.07508589877006494906247078095227134, +1.83630450795373469063701075576710697, +1.78412818954366073933346080545656432

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1156 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

src/fortran/main/pm_fftpack.F90